This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Filter-Simple tests: swap out base for parent.
[perl5.git] / dist / Filter-Simple / t / lib / Filter / Simple / ExportTest.pm
1 package Filter::Simple::ExportTest;
2
3 use Filter::Simple;
4 use parent qw(Exporter);
5
6 @EXPORT_OK = qw(ok);
7
8 FILTER { s/not// };
9
10 sub ok { print "ok @_\n" }
11
12 1;