develooper 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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About