1*0Sstevel@tonic-gate 2*0Sstevel@tonic-gaterequire 5; 3*0Sstevel@tonic-gatepackage Pod::Perldoc::BaseTo; 4*0Sstevel@tonic-gateuse strict; 5*0Sstevel@tonic-gateuse warnings; 6*0Sstevel@tonic-gate 7*0Sstevel@tonic-gatesub is_pageable { '' } 8*0Sstevel@tonic-gatesub write_with_binmode { 1 } 9*0Sstevel@tonic-gate 10*0Sstevel@tonic-gatesub output_extension { 'txt' } # override in subclass! 11*0Sstevel@tonic-gate 12*0Sstevel@tonic-gate# sub new { my $self = shift; ... } 13*0Sstevel@tonic-gate# sub parse_from_file( my($class, $in, $out) = ...; ... } 14*0Sstevel@tonic-gate 15*0Sstevel@tonic-gate#sub new { return bless {}, ref($_[0]) || $_[0] } 16*0Sstevel@tonic-gate 17*0Sstevel@tonic-gatesub _perldoc_elem { 18*0Sstevel@tonic-gate my($self, $name) = splice @_,0,2; 19*0Sstevel@tonic-gate if(@_) { 20*0Sstevel@tonic-gate $self->{$name} = $_[0]; 21*0Sstevel@tonic-gate } else { 22*0Sstevel@tonic-gate $self->{$name}; 23*0Sstevel@tonic-gate } 24*0Sstevel@tonic-gate} 25*0Sstevel@tonic-gate 26*0Sstevel@tonic-gate 27*0Sstevel@tonic-gate1; 28*0Sstevel@tonic-gate 29