lib/Pod/Perldoc/BaseTo.pm

   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