my $res = eval { ... }; if (my $e = $@) { ...; }
1人のときは↑のように書くことが多かった。
ただ会社のみんながTry::Tinyを使ってるので、使っとくかと思ったけど、みんなこんな感じで書いてる。
my ($res); try { $res = ...; } catch { ...; };
それ、こう書けるんじゃね?って思ったけど、dieしたときcatchの中身が返ってくるようだった。
my $res = try { ...; } catch { ...; };