Branch Coverage

blib/lib/String/Truncate.pm
Criterion Covered Total %
branch 28 28 100.0


line true false branch
60 11 26 if ($at_space) { }
63 1 10 unless defined $substr and length $substr
85 3 2 if $keep_left + $keep_right < $keep
103 1 60 if length $marker > $length
111 1 2 if length($marker) * 2 > $length
117 2 41 unless $arg
121 1 42 unless my $elider = $elider_for{$truncate}
124 10 32 if length $string <= $length
126 19 13 defined $arg->{'marker'} ? :
127 9 23 defined $arg->{'at_space'} ? :
143 2 12 unless $arg
145 1 13 if exists $arg->{'marker'}
215 32 8 defined $_[1] ? :
216 22 18 defined $_[2] ? :