File Coverage

blib/lib/Text/Util.pm

Criterion	Covered	Total	%
statement	11	25	44.0
branch	0	6	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	3	0.0
total	15	41	36.5

package Text::Util;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.03";
use vars qw/@ISA @EXPORT @EXPORT_OK/;

require Exporter;
@ISA = qw(Exporter);
@EXPORT = @EXPORT_OK = qw/clean_text merge_space/;

sub clean_text {
    my $str = shift;
    return unless $str;
    return chompf( merge_space($str) );
}

sub merge_space {
    my $str = shift;
    return '' unless $str;

    $str =~ s/\t+/ /g;
    $str =~ s/\r\n//g;
    $str =~ s/\s+/ /g;
    return $str;
}

sub chompf {
    my $str = shift;
    return '' unless $str;
    $str =~ s/^\s+//g;
    $str =~ s/\s+$//g;
    return $str;
}


1;
__END__