3 package Pod::Perldoc::BaseTo;
8 sub write_with_binmode { 1 }
10 sub output_extension { 'txt' } # override in subclass!
12 # sub new { my $self = shift; ... }
13 # sub parse_from_file( my($class, $in, $out) = ...; ... }
15 #sub new { return bless {}, ref($_[0]) || $_[0] }
18 my($self, $name) = splice @_,0,2;
20 $self->{$name} = $_[0];
33 Pod::Perldoc::BaseTo - Base for Pod::Perldoc formatters
37 package Pod::Perldoc::ToMyFormat;
39 use base qw( Pod::Perldoc::BaseTo );
44 This package is meant as a base of Pod::Perldoc formatters,
45 like L<Pod::Perldoc::ToText>, L<Pod::Perldoc::ToMan>, etc.
47 It provides default implementations for the methods
54 The concrete formatter must implement
63 =head1 COPYRIGHT AND DISCLAIMERS
65 Copyright (c) 2002-2007 Sean M. Burke.
67 This library is free software; you can redistribute it and/or modify it
68 under the same terms as Perl itself.
70 This program is distributed in the hope that it will be useful, but
71 without any warranty; without even the implied warranty of
72 merchantability or fitness for a particular purpose.
76 Current maintainer: Adriano R. Ferreira <ferreira@cpan.org>
78 Past contributions from:
79 Sean M. Burke <sburke@cpan.org>