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

package ExporterTest;
use warnings;
use strict;

use base 'Exporter';
use vars qw( @EXPORT_OK $foo );

$foo       = 777;
@EXPORT_OK = qw( $foo foo bar qux );

sub foo { 23 }
sub bar { 12 }
sub qux { 17 }

1;
Commit	Line	Data
40aef9d6	1	package ExporterTest;
	2	use warnings;
	3	use strict;
	4
	5	use base 'Exporter';
53e92ec5	6	use vars qw( @EXPORT_OK $foo );
40aef9d6	7
53e92ec5	8	$foo = 777;
53e92ec5	9	@EXPORT_OK = qw( $foo foo bar qux );
40aef9d6	10
	11	sub foo { 23 }
	12	sub bar { 12 }
53e92ec5	13	sub qux { 17 }
40aef9d6	14
40aef9d6	15	1;