2010-12-26 dieではなくcroak Perl ・理由:呼出しもとのどこの処理でエラーが出てるか調べるため ・よくない die 'hogehoge' if $val < $min; ・よい use Carp; croak 'hogehoge' if $val < $min;