メソッド追加

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しないようになってるから、明日はそれを書き直そう。