ImportTest.pm (revision 6fb12b7054efc6b436584db6cef9c2f85c0d7e27) - OpenGrok cross reference for /openbsd-src/gnu/usr.bin/perl/dist/Filter-Simple/t/lib/Filter/Simple/ImportTest.pm

package Filter::Simple::ImportTest;

use parent qw(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;