p4raw-id: //depot/perl@13225
+++ /dev/null
-package ExportTest;
-
-use Filter::Simple;
-use base Exporter;
-
-@EXPORT_OK = qw(ok);
-
-FILTER { s/not// };
-
-sub ok { print "ok @_\n" }
-
-1;
+++ /dev/null
-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;