diff options
author | Karl Williamson <public@khwilliamson.com> | 2013-01-24 14:41:02 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2013-01-24 19:04:48 -0700 |
commit | f703fc96a75eab3db924e41a52531905784836de (patch) | |
tree | 3e1d1202c4d1a4efaa959f0af21a57e7babfcacd /dist/Filter-Simple | |
parent | e58c5aaf5fae1951e56c0433da91fbbfb31b620c (diff) | |
download | perl-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.pm | 16 |
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; |