File Coverage

lib/Perlmazing/Perlmazing/Precompile/truncate_text.pm

Criterion	Covered	Total	%
statement	3	15	20.0
branch	0	10	0.0
condition	0	3	0.0
subroutine	1	2	50.0
pod			n/a
total	4	30	13.3

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;