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