perlベストプラクティス
use strict; use warnings; use utf8; use Test::Base qw(no_plan); sub return_undef { return undef; } my @list_undef = return_undef; ok( ! @list_undef ); # Failed sub just_return { return; } my @list_just_return = just_return; ok( ! @list_jus…