| 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.
