X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/201f48202ca1461d337bdf669489172554d045ef..085426e6e67ad74244f76901977933922b13ef3e:/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
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;