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