1N/Apackage ImportTest;
1N/A
1N/Ause base 'Exporter';
1N/A@EXPORT = qw(say);
1N/A
1N/Asub say { print @_ }
1N/A
1N/Ause Filter::Simple;
1N/A
1N/Asub import {
1N/A my $class = shift;
1N/A print "ok $_\n" foreach @_;
1N/A __PACKAGE__->export_to_level(1,$class);
1N/A}
1N/A
1N/AFILTER { s/not // };
1N/A
1N/A
1N/A1;