Mis-add.

p4raw-id: //depot/perl@13224

diff --git a/lib/Filter/Simple/lib/ExportTest.pm b/lib/Filter/Simple/lib/ExportTest.pm
new file mode 100644 (file)
index 0000000..d6da629
--- /dev/null
+++ b/lib/Filter/Simple/lib/ExportTest.pm
@@ -0,0 +1,12 @@
+package ExportTest;
+
+use Filter::Simple;
+use base Exporter;
+
+@EXPORT_OK = qw(ok);
+
+FILTER { s/not// };
+
+sub ok { print "ok @_\n" }
+
+1;

diff --git a/lib/Filter/Simple/lib/ImportTest.pm b/lib/Filter/Simple/lib/ImportTest.pm
new file mode 100644 (file)
index 0000000..6646a36
--- /dev/null
+++ b/lib/Filter/Simple/lib/ImportTest.pm
@@ -0,0 +1,19 @@
+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;