Commit | Line | Data |
16c23894 |
1 | #!/usr/bin/perl |
2 | |
bbd01306 |
3 | BEGIN { print "1..5\n"; } |
16c23894 |
4 | |
5 | |
6 | use Sub::Name; |
7 | |
8 | my $x = subname foo => sub { (caller 0)[3] }; |
9 | print $x->() eq "main::foo" ? "ok 1\n" : "not ok 1\n"; |
10 | |
11 | |
12 | package Blork; |
13 | |
14 | use Sub::Name; |
15 | |
16 | subname " Bar!", $x; |
17 | print $x->() eq "Blork:: Bar!" ? "ok 2\n" : "not ok 2\n"; |
18 | |
19 | subname "Foo::Bar::Baz", $x; |
20 | print $x->() eq "Foo::Bar::Baz" ? "ok 3\n" : "not ok 3\n"; |
21 | |
bbd01306 |
22 | subname "subname (dynamic $_)", \&subname for 1 .. 3; |
23 | |
24 | for (4 .. 5) { |
25 | subname "Dynamic $_", $x; |
26 | print $x->() eq "Blork::Dynamic $_" ? "ok $_\n" : "not ok $_\n"; |
27 | } |
16c23894 |
28 | |
29 | # $Id: smoke.t,v 1.4 2004/08/18 12:03:42 xmath Exp $ |
30 | # vim: ft=perl |