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