[p5sagit/namespace-clean.git] / t / lib / FunctionWipeout.pm

package FunctionWipeout;
use warnings;
use strict;

use ExporterTest qw( foo qux $foo );

sub bar { foo() }

use namespace::clean -except => [qw( qux )];

sub baz { bar() }

1;
Commit	Line	Data
40aef9d6	1	package FunctionWipeout;
	2	use warnings;
	3	use strict;
	4
53e92ec5	5	use ExporterTest qw( foo qux $foo );
40aef9d6	6
	7	sub bar { foo() }
	8
53e92ec5	9	use namespace::clean -except => [qw( qux )];
40aef9d6	10
	11	sub baz { bar() }
	12
	13	1;