Pod::Perldoc::ToTextOverstrike - let Perldoc render Pod as formatted overstrike text

Pod-Perldoc-ToTextTermcap documentation Contained in the Pod-Perldoc-ToTextTermcap distribution.

Index

Code Index:

NAME

Top

Pod::Perldoc::ToTextOverstrike - let Perldoc render Pod as formatted overstrike text

SYNOPSIS

Top

  perldoc -MPod::Perldoc::ToTextOverstrike Some::Modulename

or

  PERLDOC=-MPod::Perldoc::ToTextOverstrike
  export PERLDOC
  # or: setenv PERLDOC -MPod::Perldoc::ToTextOverstrike
  perldoc Some::Module

DESCRIPTION

Top

This is a "plug-in" class that allows Perldoc to use Pod::Text::Overstrike as a formatter class.

It supports all options supported by Pod::Perldoc::ToText.

SEE ALSO

Top

Pod::Text::Overstrike, Pod::Perldoc, Pod::Perldoc::ToText

COPYRIGHT

Top

Copyright (c) 2009 Slaven Rezi0107. All rights reserved.

This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Top

Slaven Rezi0107 <srezic@cpan.org>.

Based on Pod::Perldoc::ToText which is by Sean M. Burke <sburke@cpan.org> and Adriano R. Ferreira <ferreira@cpan.org>.

Pod-Perldoc-ToTextTermcap documentation Contained in the Pod-Perldoc-ToTextTermcap distribution. 
# -*- perl -*-

#
# Author: Slaven Rezic
#
# Copyright (C) 2009 Slaven Rezic. All rights reserved.
# This package is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Mail: slaven@rezic.de
# WWW:  http://www.rezic.de/eserte/
#

require 5;
package Pod::Perldoc::ToTextOverstrike;
use strict;
use warnings;

use vars qw($VERSION);
$VERSION = "0.01";

use base qw(Pod::Perldoc::ToText);

use Pod::Text::Overstrike ();

sub parse_from_file {
  my $self = shift;
  
  my @options =
    map {; $_, $self->{$_} }
      grep !m/^_/s,
        keys %$self
  ;
  
  defined(&Pod::Perldoc::DEBUG)
   and Pod::Perldoc::DEBUG()
   and print "About to call new Pod::Text::Overstrike ",
    $Pod::Text::Overstrike::VERSION ? "(v$Pod::Text::Overstrike::VERSION) " : '',
    "with options: ",
    @options ? "[@options]" : "(nil)", "\n";
  ;

  Pod::Text::Overstrike->new(@options)->parse_from_file(@_);
}

1;

__END__