summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-08-30 18:40:39 +0100
committerNicholas Clark <nick@ccl4.org>2009-08-30 19:01:11 +0100
commit06254a069d42f5a516ad5cde3e542453910e34f2 (patch)
tree7e48ce64c06e02dd57847b08ad50a0a749c53881 /t
parent85831461cd8850ede28b33bf03b6fe7a7904e0dc (diff)
downloadperl-06254a069d42f5a516ad5cde3e542453910e34f2.tar.gz
Move Filter::Simple from lib to ext
Diffstat (limited to 't')
-rw-r--r--t/lib/Filter/Simple/ExportTest.pm12
-rw-r--r--t/lib/Filter/Simple/FilterOnlyTest.pm11
-rw-r--r--t/lib/Filter/Simple/FilterTest.pm12
-rw-r--r--t/lib/Filter/Simple/ImportTest.pm19
4 files changed, 0 insertions, 54 deletions
diff --git a/t/lib/Filter/Simple/ExportTest.pm b/t/lib/Filter/Simple/ExportTest.pm
deleted file mode 100644
index 10d764e6b9..0000000000
--- a/t/lib/Filter/Simple/ExportTest.pm
+++ /dev/null
@@ -1,12 +0,0 @@
-package Filter::Simple::ExportTest;
-
-use Filter::Simple;
-use base Exporter;
-
-@EXPORT_OK = qw(ok);
-
-FILTER { s/not// };
-
-sub ok { print "ok @_\n" }
-
-1;
diff --git a/t/lib/Filter/Simple/FilterOnlyTest.pm b/t/lib/Filter/Simple/FilterOnlyTest.pm
deleted file mode 100644
index c10e8ea29f..0000000000
--- a/t/lib/Filter/Simple/FilterOnlyTest.pm
+++ /dev/null
@@ -1,11 +0,0 @@
-package Filter::Simple::FilterOnlyTest;
-
-use Filter::Simple;
-
-FILTER_ONLY
- string => sub {
- my $class = shift;
- while (my($pat, $str) = splice @_, 0, 2) {
- s/$pat/$str/g;
- }
- };
diff --git a/t/lib/Filter/Simple/FilterTest.pm b/t/lib/Filter/Simple/FilterTest.pm
deleted file mode 100644
index fab3e2730a..0000000000
--- a/t/lib/Filter/Simple/FilterTest.pm
+++ /dev/null
@@ -1,12 +0,0 @@
-package Filter::Simple::FilterTest;
-
-use Filter::Simple;
-
-FILTER {
- my $class = shift;
- while (my($pat, $str) = splice @_, 0, 2) {
- s/$pat/$str/g;
- }
-};
-
-1;
diff --git a/t/lib/Filter/Simple/ImportTest.pm b/t/lib/Filter/Simple/ImportTest.pm
deleted file mode 100644
index 4276a9fd09..0000000000
--- a/t/lib/Filter/Simple/ImportTest.pm
+++ /dev/null
@@ -1,19 +0,0 @@
-package Filter::Simple::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;