rt 4.2.15

[freeside.git] / rt / lib / RT / Shredder / POD.pm

diff --git a/rt/lib/RT/Shredder/POD.pm b/rt/lib/RT/Shredder/POD.pm
index 6b7e016..d867d13 100644 (file)
--- a/rt/lib/RT/Shredder/POD.pm
+++ b/rt/lib/RT/Shredder/POD.pm
@@ -2,7 +2,7 @@
 #
 # COPYRIGHT:
 #
-# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2018 Best Practical Solutions, LLC
 #                                          <sales@bestpractical.com>
 #
 # (Except where explicitly superseded by other copyright notices)
@@ -51,34 +51,36 @@ package RT::Shredder::POD;
 use strict;
 use warnings;
 use Pod::Select;
+use Pod::PlainText;
 
 sub plugin_html
 {
     my ($file, $out_fh) = @_;
-    my $parser = new RT::Shredder::POD::HTML;
+    my $parser = RT::Shredder::POD::HTML->new;
     $parser->select('ARGUMENTS', 'USAGE');
     $parser->parse_from_file( $file, $out_fh );
+    return;
 }
 
 sub plugin_cli
 {
     my ($file, $out_fh, $no_name) = @_;
-    use Pod::PlainText;
     local @Pod::PlainText::ISA = ('Pod::Select', @Pod::PlainText::ISA);
-    my $parser = new Pod::PlainText;
+    my $parser = Pod::PlainText->new();
     $parser->select('SYNOPSIS', 'ARGUMENTS', 'USAGE');
     $parser->add_selection('NAME') unless $no_name;
     $parser->parse_from_file( $file, $out_fh );
+    return;
 }
 
 sub shredder_cli
 {
     my ($file, $out_fh) = @_;
-    use Pod::PlainText;
     local @Pod::PlainText::ISA = ('Pod::Select', @Pod::PlainText::ISA);
-    my $parser = new Pod::PlainText;
+    my $parser = Pod::PlainText->new();
     $parser->select('NAME', 'SYNOPSIS', 'USAGE', 'OPTIONS');
     $parser->parse_from_file( $file, $out_fh );
+    return;
 }
 
 package RT::Shredder::POD::HTML;
@@ -98,6 +100,7 @@ sub command
     print $out_fh $expansion;
     print $out_fh "</$tag>" if $tag;
     print $out_fh "\n";
+    return;
 }
 
 sub verbatim
@@ -108,6 +111,7 @@ sub verbatim
     print $out_fh $paragraph;
     print $out_fh "</pre>";
     print $out_fh "\n";
+    return;
 }
 
 sub textblock {
@@ -119,6 +123,7 @@ sub textblock {
     print $out_fh $expansion;
     print $out_fh "</p>";
     print $out_fh "\n";
+    return;
 }
 
 sub interior_sequence {