メソッド追加
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'); # AUTOLOADしてみる $md5 = $img->md5; $sha256 = $img->sha256; $width = $img->width; $height = $img->height; $size = $img->size; # $filesize = $img->filesize; # $img->sizeのsynonym
AUTOLOADのチェックが少し甘くて、本来ならすぐにdieしちゃうところでdieしないようになってるから、明日はそれを書き直そう。