[perl5.git] / dist / Filter-Simple / t / lib / Filter / Simple / ExportTest.pm

package Filter::Simple::ExportTest;

use Filter::Simple;
use base Exporter;

@EXPORT_OK = qw(ok);

FILTER { s/not// };

sub ok { print "ok @_\n" }

1;
Commit	Line	Data
1b629f66	1	package Filter::Simple::ExportTest;
255c1263 JH	2
	3	use Filter::Simple;
	4	use base Exporter;
	5
	6	@EXPORT_OK = qw(ok);
	7
	8	FILTER { s/not// };
	9
	10	sub ok { print "ok @_\n" }
	11
	12	1;