Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/t/lib/Filter/Simple/ImportTest.pm
package ImportTest; use base '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;