[Summary view] [Print] [Text view]

   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