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

・before 配列参照くりかえしよくない for my $agent_num(0..$#operatives) { print "checking agent $agent_num\n"; if ($on_disavowed_list{$operatives[$agent_num]}) { print "\t...$operatives[$agent_num] disavowed!\n"; # } } ・after1 配列参照をコ…

Params::Validate使えば出来るよ！ プロトタイプ宣言して、型がおかしければ例外発生させてくれます。 test_params_validate.pl 6 package TestClass; 7 8 use Params::Validate qw/:all/; 9 use Data::Dumper; 10 11 sub new { 12 my $self = bless {}, shi…