package DB::MyTestSchema::Student;use strict; use base qw|DBIx::Class|; my $pkg = __PACKAGE__;$pkg->load_components( qw| PK::Auto Core | ); $pkg->table('students'); $pkg->add_columns(qw|id first_name last_name age|); $pkg->set_primary_key(…

あついだろうなぁ。 数日間落ちる予定。

テスト環境でMIME::Lite::TT::Japanese使うとき、 実際に外部にメールしたくない。 (したいときもあるかもしれないけど、通常はしなくていいはず。) あぶないしね。なにかと。そんなとき、こうするとよい。 my $mail = MIME::Lite::TT::Japanese->new( %$arg…

とりあえずイイ感じ。 Catalystとかと同じ感じで $self->model('Memo')->find(1);こんな感じで呼び出せる。TODOとしては リレーションオート設定（Schema::Loaderはなんか信用なら無いため。ってかLoaderベースで作ってないし。） DATE系のオート設定 R系メ…