抗疫連假窩在家裡寫程式,寫了一個 perl 模組
功能是可以指定層數,一次 return 出好幾層函數的「深return」XD
return 出 eval block 的時候也適用
cpan https://metacpan.org/pod/Return::Deep
github https://github.com/CindyLinz/Perl-Return-Deep
use Return::Deep;
sub a {
b();
# never goes here
}
sub b {
deep_ret(2, 'Hi', 42);
}
my @ret = a();
# got ('Hi', 42) here