抗疫连假窝在家里写程式，写了一个 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