package Life; use no strict; 1;

#/usr/bin/perl use strict; use warnings; my $JUCHU = 1; my $NICE_PROJECT = 1; my $BAD_PROJECT = 1; my $FOR_OUR_BOSSES = 50_000; my $our_salary = 200_000; while ( $JUCHU ) { $our_salary += 10_000 if $NICE_PROJECT; $our_salary -= 10_000 if $…

やべ。思いついた。もう既にあるかもしれんけど。 おれ、プログラマーやめて、ポエマーになった方が良い気がした。ポエムハックと名付けました。 よろしく。 Insert into you ( 'your_heart' ) values ( ( 'select sum(love) from me' ) as love ) ;

http://d.hatena.ne.jp/Bayside/20070622感動して作った。

update me set heart = 'happy' where you = 'with_me' ;

[% obj = c.forward('Model::Funky::Categories' , 'list' ) %] てかいてたんだけど、実際 [% obj = c.forward('Funky::Categories' , 'list' ) %] モデルがあるとだめっぽい。ありゃ。

http://www.cafepress.com/catalystdevやべ。欲しいかも。

ようわからん。portでの管理もようわからん。ソースでいれたらいれれそうなんやけどなぁ。 自動起動せっていてどこ？初心者すぎるなぁ。Redhat系になれすぎかなぁ。ていうか、それ以外使ってないもんなぁ。

テーブルにフィールドの追加を定期的に行ったりするんで、よくスキーマクラスを作り直すんやけど、 スキーマクラスに手を加えてたら、マージ作業が必要なわけで。それがだるいから、今のところ何もコードいれとらんのやけど、 やっぱり、手を加えた方が便利…

引数を与えてキャッシュできるようにしようと思ったけど、deleteの実装方法を変える必要があると思うなぁ。 Cache::Funky->foo( $id ); # foo( $id )のキャッシュを消す。 Cache::Funky->delete( 'foo' , $id ); # foo() すべてのキャッシュを消す。 Cache::…

プログラマーな人達とチャットを終了する時、以下のようなコマンドをタイプしてしまうのは、私だけだろうか。 愛を感じませんか。 :q! exit; return; 1; shutdown -h 0

最近落ち着いたコントローラーフロー。確認があるときは、もう一つ増えるけど。 みんなどうやってんねやろ。 sub foo : Local { my ( $s, $c) =@_; # do somthing for form. if( $c->req->method eq 'POST' ){ $c->detach('do_foo'); } } sub do_foo : Priva…

http://www.misen.ne.jp/ http://www.mapfan.com/m.cgi?MAP=E136.54.30.9N35.9.31.1&ZM=11金曜の夜に行く予定。

Catalyst::Model::CacheFunky::Loaderを、TT内で使用するさいには、modelを直接呼ぶとうまくいかない。 [% obj = c.model('Funky::Categories').list %]forwardを使用するとうまく行きます。 [% obj = c.forward('Model::Funky::Categories' , 'list' ) %]

何かやるには、思想、能力、行動力など色々必要だと思うが、それ以上に、仲間の存在は大切だと思う。 一緒に取り組める仲間が欲しいなぁ。

そればっか考えてる。今更かもしれんけど、Catalyst::Plugin::PageCacheがとてもクールやな。 Catalyst::Plugin::Authenticationと併用を考えられたコードついてるな。user_exists はたぶん、Authentication用。 return $c->NEXT::dispatch(@_) if ( $c->con…

パブリッシュしてみた。http://search.cpan.org/~tomyhero/Catalyst-Model-CacheFunky-Loader-0.01/

http://tomyhero-perl-module.googlecode.com/svn/trunk/Catalyst-Model-CacheFunky-Loader/結局名前は、Catalyst-Model-CacheFunky-Loader にしようかと。 現在の問題点 Funkyクラスを複数にわけて管理できるんだけど、結局名前は変えてないからどうなのと…

http://tomyhero-perl-module.googlecode.com/svn/trunk/Catalyst-Model-CacheFunky-Loader/今日は、id:kopugとNewbiethon予定だったのだが、残念ながら保留。なんで一人で,キャッシュファンキーディレクトリ内のモジュールを、モデルとして読み込むクラスを…

id:kopug のコードそのままやけど。Template::Filters::LazyLoader使用。 sub fd_make_it_short{ my $s = shift; my $num = shift; return sub { my $var = shift; my $var_utf8 = Encode::decode('utf-8', $var); return length $var_utf8 > $num ? Encode:…

企業に必要なのはこの３つか。重要性は右から順番。志がなければ、まとまらない。基準が不明瞭なので、褒めることや、怒ることができない。戦略がなければ、志を貫けない。行き当たりばったりでどうする。戦術がなければ、小回りが利かない。簡単なことなの…