File Coverage

lib/Pod/Wrap/Pretty.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	30	30	100.0

# Copyright (C) 2005  Joshua Hoblitt
#
# $Id: Pretty.pm,v 1.4 2006/01/07 10:54:24 jhoblitt Exp $

package Pod::Wrap::Pretty;

use strict;

use vars qw( $VERSION );
$VERSION = '0.03';

use base qw( Pod::Wrap );

BEGIN {
    use Text::Wrap;

    $Text::Wrap::columns    = 80;
    $Text::Wrap::tabstop    = 4;            # expand tabs to 4 spaces
    $Text::Wrap::unexpand   = undef;        # permanently expand/remove tabs
    $Text::Wrap::huge       = 'overflow';   # don't break long words, eg. URLs
}

sub textblock
{
    my ($self, $text) = @_;

    # is it a plain text paragraph?
    if ($text !~ /^=/mg) {
        # it is - remove all but the last newline so line the breaks are redone
        $text =~ s|$/(?!\Z)| |g;
        # trim whitespace from the end of the string
        $text =~ s|\s*\z|$/|g;
    }

    $self->SUPER::textblock($text, @_);
}

1;

__END__