7 plan 'skip_all' => 'lexical subs not supported on this perl';
13 plan 'skip_all' => 'lexical subs unreliable on this perl';
17 use feature 'lexical_subs';
18 no warnings 'experimental::lexical_subs';
22 local $TODO = "lexical subs unnameable until perl 5.22"
25 my $foo = sub { (caller 0)[3] };
27 my sub foo { (caller 0)[3] }
29 subname 'main::foo2' => \&foo;
30 is foo(), 'main::foo2', 'lexical subs can be named';
33 my sub bar { (caller 0)[$x] }
34 subname 'main::bar2' => \&bar;
35 is bar(), 'main::bar2', 'lexical closure subs can be named';