Original.pm package Original; use warnings; use strict; sub password { 'hogehoge'; } sub name { 'angelos'; } 1; Stealer.pm package Stealer; use warnings; use strict; use Class::Inspector; use Data::Dumper; use Sub::Install; use UNIVERSAL::…

関西のみなさんこんにちは、マクドナルド行ってますk！はい、関西ではマクドナルドを「マクド」っていいますね。関東では、「マック」です。Macも「マック」ですよね。とてもまぎらわしい。関西人が「マクド」と呼んでいたのは、の将来を見据えた命名センス…

ペンのインクが詰まったから、フーフーしてちょっと書けるようになったぐらいで、「俺たちすげー」を公開するのは恥ずかしくないのかな。「フーフーしたら、書けるようになるよ」って教えてあげて「僕たち良いことしたね」ぐらいで良いと思う。絶対にインク…

インフルエンザっぽいのから回復してきた

この４日間、100回以上はうなされて起きた。目をつむった瞬間にうなされるみたいなのにもなった。そして、なににうなされてるかというと make testが通らない newしたあとなんか曇って進まない 新規ページで添付ファイルがつけれない 不具合だらけ などなど…

明日予定していた、たこ焼きの会ですが、発熱が酷いため見送らさせて下さい>_

ウーム。雰囲気。戻り値は Path::Classのobjのほうがお洒落か。 package App::Home; use warnings; use strict; use base qw/Class::Data::Inheritable/; use Cwd (); __PACKAGE__->mk_classdata('app_name'); __PACKAGE__->mk_classdata('order'); __PACKAG…

失効してるのに気がついたので http://mojuice.lazy-people.org/ に変更しました。 ユーザの方々にはご迷惑をおかけしました。

package My::Sweet::Home; use warnings; use strict; use Cwd (); our $APP_NAME = 'HOGE'; our $Home = undef; sub location { my $self = shift; my @homes = ( sub {$My::Sweet::Home::Home}, sub { $ENV{ $APP_NAME . '_HOME' } }, sub { Cwd::getcwd }…

たこ焼きパーティします。プログラミングしたり、ゲームしたらり、ひるねしたり適当です。 Angelosさんのポロリもあるかもよ。参加希望者は、何からの方法でご連絡を。 日時 2009/01/17 12:00 ~ 1:00 ぐらいに適当にあつまる。 場所 神奈川県宮前区 参加条件…

Date::Calc installしたけどアプリうごかしたら Perl_sv_2iv_flags これがない的なエラーになった...help me. 追記 perlに当ててたパッチが悪さしてたもよう。取り外したらいけた。

XML::Liberalのテストがほとんどこけるなぁ。ftp://xmlsoft.org/libxml2/libxml2-2.7.2.tar.gz の XML::XMLLibなんだけど。なんだろう。 追記1 http://rt.cpan.org/Public/Bug/Display.html?id=41802これか。 追記2 XML-LibXML-1.65 まで下げると、ほとんど…

XSを使用したモジュールのmakeが出来ない場合、ExtUtils::MakeMaker::Configに $Config{lddlflags} = '-m32 ' . $Config{lddlflags}; を追加すればとりあえずうまくいくかも。perlのconfigureのoptionで設定する方がベターだけど。

angelosのデバッグツールになってます。

ストレッチとかをする ゲーマーになる

Mouse::Role系は便利だけど、モリモリ関数を増やしまくると、コードがおえなくなるので使い過ぎに気をつけた方が良いと思った。使う際には、ネームスペースや関数名からGuessできるように気を配るとかかなぁ。

http://d.hatena.ne.jp/tomyhero/20081231/1230735039使うケースというのは、呼びもとクラスをコントロールしたい時でいいのかなa.pl #!/usr/bin/perl use Hage; package Hoge; sub import { use Data::Dumper; print Dumper caller ; print "---------\n"; …

File::ShareDirを使えばいいのか。 もうちょっと詳しく