dist/Filter-Simple/t/lib/Filter/Simple/ImportTest.pm

   1 package Filter::Simple::ImportTest;
   2
   3 use parent qw(Exporter);
   4 @EXPORT = qw(say);
   5
   6 sub say { print @_ }
   7
   8 use Filter::Simple;
   9
  10 sub import {
  11         my $class = shift;
  12         print "ok $_\n" foreach @_;
  13         __PACKAGE__->export_to_level(1,$class);
  14 }
  15
  16 FILTER { s/not // };
  17
  18
  19 1;