/usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/t/lib/Filter/Simple/ExportTest.pm

Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/t/lib/Filter/Simple/ExportTest.pm


package ExportTest;

use Filter::Simple;
use base Exporter;

@EXPORT_OK = qw(ok);

FILTER { s/not// };

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

1;