diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-08-30 18:40:39 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-08-30 19:01:11 +0100 |
commit | 06254a069d42f5a516ad5cde3e542453910e34f2 (patch) | |
tree | 7e48ce64c06e02dd57847b08ad50a0a749c53881 /t | |
parent | 85831461cd8850ede28b33bf03b6fe7a7904e0dc (diff) | |
download | perl-06254a069d42f5a516ad5cde3e542453910e34f2.tar.gz |
Move Filter::Simple from lib to ext
Diffstat (limited to 't')
-rw-r--r-- | t/lib/Filter/Simple/ExportTest.pm | 12 | ||||
-rw-r--r-- | t/lib/Filter/Simple/FilterOnlyTest.pm | 11 | ||||
-rw-r--r-- | t/lib/Filter/Simple/FilterTest.pm | 12 | ||||
-rw-r--r-- | t/lib/Filter/Simple/ImportTest.pm | 19 |
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; |