Front page | perl.perl5.porters |
Postings from February 2011
[perl #85120] [PATCH] Fix podchecker warnings in Filter::Simple
Thread Previous
From:
Michael Stevens
Date:
February 28, 2011 13:44
Subject:
[perl #85120] [PATCH] Fix podchecker warnings in Filter::Simple
Message ID:
rt-3.6.HEAD-28241-1298929485-1811.85120-75-0@perl.org
# New Ticket Created by Michael Stevens
# Please include the string: [perl #85120]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=85120 >
---
dist/Filter-Simple/lib/Filter/Simple.pm | 15 +++++++--------
1 files changed, 7 insertions(+), 8 deletions(-)
diff --git a/dist/Filter-Simple/lib/Filter/Simple.pm b/dist/Filter-Simple/lib/Filter/Simple.pm
index 2edd798..6893391 100644
--- a/dist/Filter-Simple/lib/Filter/Simple.pm
+++ b/dist/Filter-Simple/lib/Filter/Simple.pm
@@ -234,7 +234,6 @@ __END__
Filter::Simple - Simplified source filtering
-
=head1 SYNOPSIS
# in MyFilter.pm:
@@ -242,7 +241,7 @@ Filter::Simple - Simplified source filtering
package MyFilter;
use Filter::Simple;
-
+
FILTER { ... };
# or just:
@@ -329,7 +328,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 {
@@ -394,7 +393,7 @@ In other words, the previous example, would become:
package BANG;
use Filter::Simple;
-
+
FILTER {
s/BANG\s+BANG/die 'BANG' if \$BANG/g;
};
@@ -438,7 +437,7 @@ you would write:
package BANG;
use Filter::Simple;
-
+
FILTER {
s/BANG\s+BANG/die 'BANG' if \$BANG/g;
}
@@ -455,7 +454,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;
}
@@ -752,9 +751,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;
--
1.7.3.1
Thread Previous