From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 23 Nov 2001 19:52:03 +0000 (+0000)
Subject: Mis-add.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=085426e6e67ad74244f76901977933922b13ef3e;p=p5sagit%2Fp5-mst-13.2.git

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
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
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;