Commit | Line | Data |
---|---|---|
920dae64 AT |
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 |