Try::Tiny Perl 异常的处理

Perl 没有内置的异常处理机制，所以最合适的方法就是使用Try::Tiny 模块。虽然CPAN中处理异常的模块很多，但是这个模块最为轻巧，使用起来也没有过多的依赖关系。

语法:

use autodie;
use Try::Tiny;
# handle errors with a catch handler
try {
  die "foo";
} catch {
  warn "caught error: $_"; # not $@
};

注意：catch 代码以分号结尾的，是一个表达式。另外，它会将出错的信息保存在变量$_而不是$@中。