Commit | Line | Data |
---|---|---|
16c23894 | 1 | #!/usr/bin/perl |
2 | ||
3 | BEGIN { print "1..3\n"; } | |
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 | ||
22 | ||
23 | # $Id: smoke.t,v 1.4 2004/08/18 12:03:42 xmath Exp $ | |
24 | # vim: ft=perl |