@@ -79,3 +79,10 @@ Revision history for Perl extension Filter::Simple
- added prereq for Text::Balanced in Makefile.PL
- Added note about use of /m flag when using ^ or $ in filter regexes
+
+0.79 Sat Sep 20 21:56:24 2003
+
+ - Fixed tests to use t/lib modules so F::S is testable without
+ a previous version of F::S installed. (schwern)
+
+
@@ -33,3 +33,4 @@ demo/demo_data.pl
demo/demo_dots.pl
demo/demo_revcat.pl
demo/demo_unpod.pl
+META.yml Module meta-data (added by MakeMaker)
@@ -0,0 +1,12 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: Filter-Simple
+version: 0.79
+version_from:
+installdirs: site
+requires:
+ Filter::Util::Call: 0
+ Text::Balanced: 0
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.16
@@ -2,7 +2,7 @@
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => q[Filter::Simple],
- VERSION => q[0.78],
+ VERSION => q[0.79],
PREREQ_PM => { Text::Balanced => 0, Filter::Util::Call => 0 },
);
@@ -1,74 +0,0 @@
-==============================================================================
- Release of version 0.78 of Filter::Simple
-==============================================================================
-
-
-NAME
- Filter::Simple - Simplified source filtering
-
-SYNOPSIS
- # in MyFilter.pm:
-
- package MyFilter;
-
- use Filter::Simple;
-
- FILTER { ... };
-
- # or just:
- #
- # use Filter::Simple sub { ... };
-
-
- # in user's code:
-
- use MyFilter;
-
- # this is filtered
-
- no MyFilter;
-
- # this is not
-
-
-DESCRIPTION
- The Filter::Simple module provides a simplified interface to
- Filter::Util::Call; one that is sufficient for most common cases.
-
-AUTHOR
- Damian Conway (damian@conway.org)
-
-COPYRIGHT
- Copyright (c) 2000-2001, Damian Conway. All Rights Reserved.
- This module is free software. It may be used, redistributed
- and/or modified under the same terms as Perl itself.
-
-
-==============================================================================
-
-CHANGES IN VERSION 0.78
-
-
- - Re-corified test modules in line with Jarkko's new scheme
-
- - Various POD nits unknitted (thanks Autrijus)
-
- - Added the missing DotsForArrows.pm demo file (thanks Autrijus)
-
- - Added support for Perl 5.005
-
- - added prereq for Text::Balanced in Makefile.PL
-
- - Added note about use of /m flag when using ^ or $ in filter regexes
-
-
-==============================================================================
-
-AVAILABILITY
-
-Filter::Simple has been uploaded to the CPAN
-and is also available from:
-
- http://www.csse.monash.edu.au/~damian/CPAN/Filter-Simple.tar.gz
-
-==============================================================================
@@ -4,7 +4,7 @@ use Text::Balanced ':ALL';
use vars qw{ $VERSION @EXPORT };
-$VERSION = '0.78';
+$VERSION = '0.79';
use Filter::Util::Call;
use Carp;
@@ -1,11 +1,15 @@
BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir('t') if -d 't';
- @INC = qw(lib/Filter/Simple ../lib);
+ if( $ENV{PERL_CORE} ) {
+ chdir 't';
+ @INC = '../lib';
+ }
+ else {
+ unshift @INC, 't/lib/';
}
}
+chdir 't';
-use FilterOnlyTest qr/ok/ => "not ok", "bad" => "ok";
+use Filter::Simple::FilterOnlyTest qr/ok/ => "not ok", "bad" => "ok";
print "1..6\n";
print "bad 1\n";
@@ -1,12 +1,16 @@
BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir('t') if -d 't';
- @INC = qw(lib/Filter/Simple ../lib);
+ if( $ENV{PERL_CORE} ) {
+ chdir 't';
+ @INC = '../lib';
+ }
+ else {
+ unshift @INC, 't/lib/';
}
}
+chdir 't';
BEGIN { print "1..1\n" }
-use ExportTest 'ok';
+use Filter::Simple::ExportTest 'ok';
notok 1;
@@ -1,11 +1,15 @@
BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir('t') if -d 't';
- @INC = qw(lib/Filter/Simple ../lib);
+ if( $ENV{PERL_CORE} ) {
+ chdir 't';
+ @INC = '../lib';
+ }
+ else {
+ unshift @INC, 't/lib/';
}
}
+chdir 't';
-use FilterTest qr/not ok/ => "ok", fail => "ok";
+use Filter::Simple::FilterTest qr/not ok/ => "ok", fail => "ok";
print "1..6\n";
@@ -20,7 +24,7 @@ fail(3);
print "not " unless "whatnot okapi" eq "whatokapi";
print "ok 5\n";
-no FilterTest;
+no Filter::Simple::FilterTest;
print "not " unless "not ok" =~ /^not /;
print "ok 6\n";
@@ -1,11 +1,16 @@
BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir('t') if -d 't';
- @INC = qw(lib/Filter/Simple ../lib);
+ if( $ENV{PERL_CORE} ) {
+ chdir 't';
+ @INC = '../lib';
+ }
+ else {
+ unshift @INC, 't/lib/';
}
}
+chdir 't';
-use FilterOnlyTest qr/not ok/ => "ok", "bad" => "ok", fail => "die";
+use Filter::Simple::FilterOnlyTest qr/not ok/ => "ok",
+ "bad" => "ok", fail => "die";
print "1..9\n";
sub fail { print "ok ", $_[0], "\n" }
@@ -22,7 +27,7 @@ print "ok 5\n";
ok 7 unless not ok 6;
-no FilterOnlyTest; # THE FUN STOPS HERE
+no Filter::Simple::FilterOnlyTest; # THE FUN STOPS HERE
print "not " unless "not ok" =~ /^not /;
print "ok 8\n";
@@ -1,12 +1,17 @@
BEGIN {
- if ($ENV{PERL_CORE}) {
- chdir('t') if -d 't';
- @INC = qw(lib/Filter/Simple ../lib);
+ if( $ENV{PERL_CORE} ) {
+ chdir 't';
+ @INC = '../lib';
+ }
+ else {
+ unshift @INC, 't/lib';
}
}
+chdir 't';
BEGIN { print "1..4\n" }
-use ImportTest (1..3);
+use lib 'lib';
+use Filter::Simple::ImportTest (1..3);
say "not ok 4\n";
@@ -1,4 +1,4 @@
-package ExportTest;
+package Filter::Simple::ExportTest;
use Filter::Simple;
use base Exporter;
@@ -1,4 +1,4 @@
-package FilterOnlyTest;
+package Filter::Simple::FilterOnlyTest;
use Filter::Simple;
@@ -1,4 +1,4 @@
-package FilterTest;
+package Filter::Simple::FilterTest;
use Filter::Simple;
@@ -1,4 +1,4 @@
-package ImportTest;
+package Filter::Simple::ImportTest;
use base 'Exporter';
@EXPORT = qw(say);