最近single_or_createというメソッドをつかっていて、つらくなったのでメモ。 まずsingle_or_createとがどういうコードかというと、 sub single_or_create { my $self = shift; my $row = eval { #…insertの処理を走らせる }; if (my $e = $@) { # ..depulic…