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];