Commit | Line | Data |
---|---|---|
d5cd0736 | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Test::More; | |
7 | ||
8 | BEGIN { | |
d1dd3c37 | 9 | plan skip_all => "Sub::Name required" |
10 | unless eval { require Sub::Name; 1 }; | |
11 | plan tests => 3; | |
d5cd0736 | 12 | } |
13 | ||
027bdf22 | 14 | use Try::Tiny; |
d5cd0736 | 15 | |
16 | my $name; | |
17 | try { | |
d1dd3c37 | 18 | $name = (caller(0))[3]; |
d5cd0736 | 19 | }; |
faa955ce | 20 | is $name, "main::try {...} ", "try name"; # note extra space |
d5cd0736 | 21 | |
22 | try { | |
d1dd3c37 | 23 | die "Boom"; |
d5cd0736 | 24 | } catch { |
d1dd3c37 | 25 | $name = (caller(0))[3]; |
d5cd0736 | 26 | }; |
27 | is $name, "main::catch {...} ", "catch name"; # note extra space | |
28 | ||
ada8284b | 29 | try { |
d1dd3c37 | 30 | die "Boom"; |
ada8284b | 31 | } catch { |
d1dd3c37 | 32 | # noop |
ada8284b | 33 | } finally { |
d1dd3c37 | 34 | $name = (caller(0))[3]; |
ada8284b | 35 | }; |
36 | is $name, "main::finally {...} ", "finally name"; # note extra space | |
37 |