1N/Apackage ExportTest;
1N/A
1N/Ause Filter::Simple;
1N/Ause base Exporter;
1N/A
1N/A@EXPORT_OK = qw(ok);
1N/A
1N/AFILTER { s/not// };
1N/A
1N/Asub ok { print "ok @_\n" }
1N/A
1N/A1;