[p5sagit/p5-mst-13.2.git] / t / lib / Filter / Simple / ImportTest.pm

package Filter::Simple::ImportTest;

use base 'Exporter';
@EXPORT = qw(say);

sub say { print @_ }

use Filter::Simple;

sub import {
	my $class = shift;
	print "ok $_\n" foreach @_;
	__PACKAGE__->export_to_level(1,$class);
}

FILTER { s/not // };


1;
Commit	Line	Data
1b629f66	1	package Filter::Simple::ImportTest;
255c1263	2
	3	use base 'Exporter';
	4	@EXPORT = qw(say);
	5
	6	sub say { print @_ }
	7
	8	use Filter::Simple;
	9
	10	sub import {
	11	my $class = shift;
	12	print "ok $_\n" foreach @_;
	13	__PACKAGE__->export_to_level(1,$class);
	14	}
	15
	16	FILTER { s/not // };
	17
	18
	19	1;