Commit | Line | Data |
1a67fee7 |
1 | |
2 | require 5; |
3 | package Pod::Perldoc::BaseTo; |
4 | use strict; |
5 | use warnings; |
6 | |
7 | sub is_pageable { '' } |
8 | sub write_with_binmode { 1 } |
9 | |
10 | sub 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 | |
17 | sub _perldoc_elem { |
18 | my($self, $name) = splice @_,0,2; |
19 | if(@_) { |
20 | $self->{$name} = $_[0]; |
21 | } else { |
22 | $self->{$name}; |
23 | } |
24 | } |
25 | |
26 | |
27 | 1; |
28 | |