Line | |
---|
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 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.