difftastic/vendored_parsers/tree-sitter-perl/examples/experimental.pl

use feature 'switch';
use v5.14;
use Try::Tiny;


try {
  my $a = 1;
  print "tying..\n";
}
catch {
  print "catch block";
};