9 my $x = subname foo => sub { (caller 0)[3] };
10 my $line = __LINE__ - 1;
12 my $anon = $DB::sub{"main::__ANON__[${file}:${line}]"};
14 is($x->(), "main::foo");
21 ::is($x->(), "Blork:: Bar!");
23 subname "Foo::Bar::Baz", $x;
24 ::is($x->(), "Foo::Bar::Baz");
26 subname "subname (dynamic $_)", \&subname for 1 .. 3;
29 subname "Dynamic $_", $x;
30 ::is($x->(), "Blork::Dynamic $_");
33 ::is($DB::sub{"main::foo"}, $anon);
36 ::is($DB::sub{"Blork::Dynamic $_"}, $anon);
39 for ("Blork:: Bar!", "Foo::Bar::Baz") {
40 ::is($DB::sub{$_}, $anon);