Catalyst でのモデルとロジック

分けたほうがいいよー！という話を最近よく聞く（読む）ので、分けるようにした。
とりあえず Catalyst での config やら model はそのまま使いたいけれど、CLI とかではどうするの？って話になるので、その辺もくそかっこわるいけどなんとかできるように。

具体的には、Catalyst::Model::DynamicAdaptor をほんのちょっと拡張して、Catalyst::Model::DynamicAdaptor::Lazy というものを作った。
実際に使う場合には、それをベースクラスに持つ MyApp::Model::Logic なんてのをこさえて、MyApp::Logic::Hoge やら MyApp::Logic::Fuga なんてものを坦々と作ると。
で、Catalyst で動作している場合は、DynamicAdaptor そのまんまに $c->model('Logic::Hoge') 出来るし、Catalyst じゃない場合は、MyApp::Model::Logic のカスタムコンストラクタに config と schema を渡せばいいと。具体的にはこんな感じに使えるように。

my $config = LoadFile(file($Bin, '..', 'myapp.yml')); # とりあえず YAML 使ってるので
my $schema = MyApp::Model::DBIC->new;
my $l      = MyApp::Model::Logic->new_with_nocatalyst('MyApp::Logic', $config, $schema);
print $l->logic('Hoge')->say;

安直で、素晴らしくかっこわるい。正直このまま実用する気はない。