diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Perldoc/ToNroff.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Pod/Perldoc/ToNroff.pm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToNroff.pm b/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToNroff.pm index 991c1e3269c..2e92f2a134e 100644 --- a/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToNroff.pm +++ b/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToNroff.pm @@ -1,12 +1,12 @@ - -require 5; package Pod::Perldoc::ToNroff; use strict; use warnings; +use parent qw(Pod::Perldoc::BaseTo); -# This is unlike ToMan.pm in that it emits the raw nroff source! +use vars qw($VERSION); +$VERSION = '3.17'; -use base qw(Pod::Perldoc::BaseTo); +# This is unlike ToMan.pm in that it emits the raw nroff source! sub is_pageable { 1 } # well, if you ask for it... sub write_with_binmode { 0 } @@ -29,13 +29,13 @@ sub new { return bless {}, ref($_[0]) || $_[0] } sub parse_from_file { my $self = shift; my $file = $_[0]; - + my @options = map {; $_, $self->{$_} } grep !m/^_/s, keys %$self ; - + defined(&Pod::Perldoc::DEBUG) and Pod::Perldoc::DEBUG() and print "About to call new Pod::Man ", @@ -94,10 +94,12 @@ merchantability or fitness for a particular purpose. =head1 AUTHOR -Current maintainer: Adriano R. Ferreira <ferreira@cpan.org> +Current maintainer: Mark Allen C<< <mallen@cpan.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 |