コーディング

頭の中にあるものをひたすらコードに落としていく作業。当面の間必要なぶんのデータは取得できるようになったから、明日はこれをRDBに書き込むところから書き始める予定。

追記

インターフェースがまずいかなぁ。というか、あからさまにおかしい。あとでもう少し手を入れないと。もう一枚レイヤをはさんで扱うくらいにした方がいいかも。統一されたインターフェースで取得できるほうが幸せになれる気がする。あとスカラーたくさんよりもハッシュ1個にまとめたほうが、DBICに食べさせるときに少し幸せになれる。

my $obj = Hoge->new($_) or die $!;
my %attr;
@attr{qw/foo bar baz/} = $obj->get(qw/foo bar baz/);
my $i = $schema->resultset('fuga')->find_or_create(\%attr);

んー、こんなのかなぁ。