Commit | Line | Data |
---|---|---|
aea0cfbe | 1 | use warnings; |
2 | use strict; | |
3 | ||
4 | use Test::More tests => 4; | |
5 | use lib 't/lib'; | |
6 | ||
7 | BEGIN { | |
8 | ||
9 | #line 1 | |
10 | #!/usr/bin/perl -d:_NC_TEST_DashD | |
11 | #line 12 | |
12 | ||
13 | } | |
14 | ||
15 | { | |
16 | package Foo; | |
17 | ||
18 | BEGIN { *baz = sub { 42 } } | |
19 | sub foo { 22 } | |
20 | ||
21 | use namespace::clean; | |
22 | ||
23 | sub bar { | |
24 | ::is(baz(), 42); | |
25 | ::is(foo(), 22); | |
26 | } | |
27 | } | |
28 | ||
29 | ok( !Foo->can("foo"), "foo cleaned up" ); | |
30 | ok( !Foo->can("baz"), "baz cleaned up" ); | |
31 | ||
32 | Foo->bar(); |