Mis-add.

[perl5.git] / lib / Filter / Simple / lib / ImportTest.pm

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;