9 plan skip_all => "Sub::Name required"
10 unless eval { require Sub::Name; 1 };
14 BEGIN { use_ok 'Try::Tiny' }
18 $name = (caller(0))[3];
20 is $name, "main::try {...}", "try name";
25 $name = (caller(0))[3];
27 is $name, "main::catch {...} ", "catch name"; # note extra space
34 $name = (caller(0))[3];
36 is $name, "main::finally {...} ", "finally name"; # note extra space