OBSOLETED
0.14_02 にて、Teng::Schema::Loader->load が内部的にTengのインスタンスを作成するようになったため、このコードはうまくいかない。 g:tenmon:id:aql:20121213:1355369999 を参照せよ。
開発中なので、ちゃんとしたスキーマ定義は省略したい(変わりそうだし)のだけれど、いちおうモデルクラスは作りたくて、プロダクトでもモデルクラスだけ直せば大丈夫と言うことがやりたい。
http://search.cpan.org/perldoc/Teng::Schema::Loaderの例は、スクリプト一本で何とかするときに使えそうだが、モデルクラスは定義しつつLoaderも使うというような、中間辺りをやりたい。
ついでに*_atのinflate/deflateを仕込みたい。
use My::Model; my $m = My::Model->new; my $item = $m->single( 'table', { id => 1 } );