メモ
my $str_cat = sub { join '-', @_ };
print $srt_cat->( 'hoge', 'bar');
をやると
Use of uninitialized value $_[0] in join or string
と警告がでてしまう。
無名サブルーチン内で、@_が空かどうかの判定をしてから join をさせても警告が消えない。
いまのところどう対処するのがいいかはわからず、ひとまず no warnigs でお茶をにごしている。
参考になりそうなリンク：
