summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToPod.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Perldoc/ToPod.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Pod/Perldoc/ToPod.pm31
1 files changed, 13 insertions, 18 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToPod.pm b/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToPod.pm
index c3173d43702..6c15c02a781 100644
--- a/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToPod.pm
+++ b/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToPod.pm
@@ -1,18 +1,11 @@
-
-# This class is just a hack to act as a "formatter" for
-# actually unformatted Pod.
-#
-# Note that this isn't the same as just passing thru whatever
-# we're given -- we pass thru only the pod source, and suppress
-# the Perl code (or whatever non-pod stuff is in the source file).
-
-
-require 5;
package Pod::Perldoc::ToPod;
use strict;
use warnings;
+use parent qw(Pod::Perldoc::BaseTo);
+
+use vars qw($VERSION);
+$VERSION = '3.17';
-use base qw(Pod::Perldoc::BaseTo);
sub is_pageable { 1 }
sub write_with_binmode { 0 }
sub output_extension { 'pod' }
@@ -22,10 +15,10 @@ sub new { return bless {}, ref($_[0]) || $_[0] }
sub parse_from_file {
my( $self, $in, $outfh ) = @_;
- open(IN, "<", $in) or die "Can't read-open $in: $!\nAborting";
+ open(IN, "<", $in) or $self->die( "Can't read-open $in: $!\nAborting" );
my $cut_mode = 1;
-
+
# A hack for finding things between =foo and =cut, inclusive
local $_;
while (<IN>) {
@@ -37,10 +30,10 @@ sub parse_from_file {
}
}
next if $cut_mode;
- print $outfh $_ or die "Can't print to $outfh: $!";
+ print $outfh $_ or $self->die( "Can't print to $outfh: $!" );
}
-
- close IN or die "Can't close $in: $!";
+
+ close IN or $self->die( "Can't close $in: $!" );
return;
}
@@ -84,10 +77,12 @@ merchantability or fitness for a particular purpose.
=head1 AUTHOR
-Current maintainer: Adriano R. Ferreira <ferreira@cpan.org>
+Current maintainer: Mark Allen C<< <mallencpan.org> >>
Past contributions from:
-Sean M. Burke <sburke@cpan.org>
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
=cut