File Coverage

blib/lib/Pod/Perldoc/ToTextOverstrike.pm

Criterion	Covered	Total	%
statement	15	20	75.0
branch	0	6	0.0
condition	0	3	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	36	55.5

# -*- 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: [e-mail]
# 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__