ImportTest.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
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;