summaryrefslogtreecommitdiff
path: root/dist/Filter-Simple
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2013-01-24 14:41:02 -0700
committerKarl Williamson <public@khwilliamson.com>2013-01-24 19:04:48 -0700
commitf703fc96a75eab3db924e41a52531905784836de (patch)
tree3e1d1202c4d1a4efaa959f0af21a57e7babfcacd /dist/Filter-Simple
parente58c5aaf5fae1951e56c0433da91fbbfb31b620c (diff)
downloadperl-f703fc96a75eab3db924e41a52531905784836de.tar.gz
Fix various minor pod issues
These were all uncovered by the new Pod::Checker, not yet in core. Fixing these will speed up debugging the new Checker.
Diffstat (limited to 'dist/Filter-Simple')
-rw-r--r--dist/Filter-Simple/lib/Filter/Simple.pm16
1 files changed, 8 insertions, 8 deletions
diff --git a/dist/Filter-Simple/lib/Filter/Simple.pm b/dist/Filter-Simple/lib/Filter/Simple.pm
index b0068037f3..5de131fec2 100644
--- a/dist/Filter-Simple/lib/Filter/Simple.pm
+++ b/dist/Filter-Simple/lib/Filter/Simple.pm
@@ -4,7 +4,7 @@ use Text::Balanced ':ALL';
use vars qw{ $VERSION @EXPORT };
-$VERSION = '0.88';
+$VERSION = '0.89';
use Filter::Util::Call;
use Carp;
@@ -251,7 +251,7 @@ Filter::Simple - Simplified source filtering
package MyFilter;
use Filter::Simple;
-
+
FILTER { ... };
# or just:
@@ -338,7 +338,7 @@ to the sequence C<die 'BANG' if $BANG> in any piece of code following a
C<use BANG;> statement (until the next C<no BANG;> statement, if any):
package BANG;
-
+
use Filter::Util::Call ;
sub import {
@@ -403,7 +403,7 @@ In other words, the previous example, would become:
package BANG;
use Filter::Simple;
-
+
FILTER {
s/BANG\s+BANG/die 'BANG' if \$BANG/g;
};
@@ -447,7 +447,7 @@ you would write:
package BANG;
use Filter::Simple;
-
+
FILTER {
s/BANG\s+BANG/die 'BANG' if \$BANG/g;
}
@@ -464,7 +464,7 @@ and to prevent the filter's being turned off in any way:
package BANG;
use Filter::Simple;
-
+
FILTER {
s/BANG\s+BANG/die 'BANG' if \$BANG/g;
}
@@ -761,9 +761,9 @@ list to the filtering subroutine, so the BANG.pm filter could easily
be made parametric:
package BANG;
-
+
use Filter::Simple;
-
+
FILTER {
my ($die_msg, $var_name) = @_;
s/BANG\s+BANG/die '$die_msg' if \${$var_name}/g;