File Coverage

lib/Perlmazing/Perlmazing/Precompile/truncate_text.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	8	10	80.0
condition	1	3	33.3
subroutine	2	2	100.0
pod			n/a
total	26	30	86.6

use Perlmazing;

sub main ($$) {
	my ($str, $size) = @_;
	return '' unless defined $str and length $str;
	return unless is_number $size;
	my $length = length $str;
	return $str if $length <= $size;
	my $next = substr $str, $size, 1;
	$str = substr $str, 0, $size;
	if ((my $index = rindex($str, ' ')) != -1) {
		unless ($next eq ' ') {
			$str = substr $str, 0, $index;
		}
	}
	$str =~ s/\s+$//;
	$str;
}

1;