/usr/local/CPAN/Pod-Tidy/Pod/Wrap/Pretty.pm

• package Pod::Wrap::Pretty
  • textblock
• __END__
• EOF

# 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__