テスト駆動開発
偉い人はいいました。「テストの開発をコードの開発よりもさきに行うべきである」。というわけで、まずはテストケースを書いてみました。次はこのテストを通るように実装を書いていけばいいのだね。
追記
ちょっとお役立ちなモジュールできた。これで統一されたインターフェースから情報を引っ張ってこれる。TDDのありがたみはやってみて初めてよく分かるなぁ。
use aliased 'Evangeline::Util::Image'; my $img = Image->new($_) or die $!; my $orig_name = $img->name; my $id = $img->digest('SHA-256'); my $md5 = $img->digest('MD5'); my ($width, $height, $size, $ext) = $img->get(qw/width height size ext/); # ひとつずつでもできる。 # my $width = $img->get('width'); # my $height = $img->get('height'); # my $size = $img->get('size'); # my $ext = $img->get('ext');