6 my $x = subname foo => sub { (caller 0)[3] };
7 my $line = __LINE__ - 1;
9 my $anon = $DB::sub{"main::__ANON__[${file}:${line}]"};
11 is($x->(), "main::foo");
18 ::is($x->(), "Blork:: Bar!");
20 subname "Foo::Bar::Baz", $x;
21 ::is($x->(), "Foo::Bar::Baz");
23 subname "subname (dynamic $_)", \&subname for 1 .. 3;
26 subname "Dynamic $_", $x;
27 ::is($x->(), "Blork::Dynamic $_");
30 ::is($DB::sub{"main::foo"}, $anon);
33 ::is($DB::sub{"Blork::Dynamic $_"}, $anon);
36 for ("Blork:: Bar!", "Foo::Bar::Baz") {
37 ::is($DB::sub{$_}, $anon);