File Coverage

blib/lib/Pod/Wrap.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	37	40	92.5

#!/usr/bin/perl
# $Id: Wrap.pm,v 1.3 2004/01/08 03:20:16 nothingmuch Exp $

package Pod::Wrap;

use strict;
use warnings;

use Text::Wrap;
use base 'Pod::Parser';

our $VERSION = 0.01;

sub begin_input {
    my $self = shift;

    $self->parseopts(           # we need some special options:
        '-want_nonPODs' => 1,       # want the perl code
        '-process_cut_cmd' => 9,    # want to preserve cuts so pod is properly terminated
    );

    return undef;
}

sub preprocess_paragraph { # used to catch
    my $self = shift;
    my $text = shift;

    my $fh = $self->output_handle;
    print $fh $text if $self->cutting(); # this is not pod, so we print it.

    return $text;
}

sub textblock {
    my $self = shift;
    my $text = shift;

    my $fh = $self->output_handle;
    if ($text =~ /^=/mg){ # when 'command' is not defined, commands are passed as paragraphs to here. Which means we don't have to recreate them.
        print $fh $text; # we just don't wrap them.
    } else {
        print $fh wrap('','',$text), "\n"; # wrap 'regular' text, without indenting, and end with another newline..
    }
}

# sub new { $_[0]->SUPER::new() } # force no arguments to new?
# sub verbatim { print $_[1] } # will be printed automatically if not defined
# sub command { my $self = shift; print "=", $_[0], " ", $_[1], "\n" } # ce n'est past bien

1; # keep your mother happy

__END__