Commit | Line | Data |
---|---|---|
40aef9d6 | 1 | #!/usr/bin/env perl |
2 | use warnings; | |
3 | use strict; | |
4 | ||
5 | use FindBin; | |
6 | use lib "$FindBin::Bin/lib"; | |
7 | use Test::More tests => 4; | |
8 | ||
9 | use ExporterTest qw( foo bar ); | |
10 | ||
11 | BEGIN { | |
12 | ok( main->can('foo'), 'methods are there before cleanup' ); | |
13 | eval { use namespace::clean }; | |
14 | ok( !$@, 'module use ok' ); | |
15 | } | |
16 | ||
17 | ok( !main->can($_), "$_ function removed" ) | |
18 | for qw( foo bar ); | |
19 |