Commit | Line | Data |
07fbef3d |
1 | #!/usr/bin/perl -d |
2 | |
3 | BEGIN { |
4 | push @DB::typeahead, "c", "q"; |
5 | |
6 | # try to shut it up at least a little bit |
7 | open my $out, ">", \my $out_buf; |
8 | $DB::OUT = $out; |
9 | open my $in, "<", \my $in_buf; |
10 | $DB::IN = $in; |
11 | } |
12 | |
13 | { |
14 | package Foo; |
15 | |
16 | BEGIN { *baz = sub { 42 } } |
17 | sub foo { 22 } |
18 | |
19 | use namespace::clean; |
20 | |
21 | sub bar { |
22 | ::is(baz(), 42); |
23 | ::is(foo(), 22); |
24 | } |
25 | } |
26 | |
27 | use Test::More tests => 5; |
28 | |
29 | ok( !Foo->can("foo"), "foo cleaned up" ); |
30 | ok( !Foo->can("baz"), "baz cleaned up" ); |
31 | |
32 | Foo->bar(); |
33 | |
34 | pass(); |