#!/usr/bin/perl BEGIN { print "1..5\n"; } use Sub::Name; my $x = subname foo => sub { (caller 0)[3] }; print $x->() eq "main::foo" ? "ok 1\n" : "not ok 1\n"; package Blork; use Sub::Name; subname " Bar!", $x; print $x->() eq "Blork:: Bar!" ? "ok 2\n" : "not ok 2\n"; subname "Foo::Bar::Baz", $x; print $x->() eq "Foo::Bar::Baz" ? "ok 3\n" : "not ok 3\n"; subname "subname (dynamic $_)", \&subname for 1 .. 3; for (4 .. 5) { subname "Dynamic $_", $x; print $x->() eq "Blork::Dynamic $_" ? "ok $_\n" : "not ok $_\n"; } # vim: ft=perl