Branch Coverage

blib/lib/Text/Conceal.pm
Criterion Covered Total %
branch 33 48 68.7


line true false branch
36 582 0 if @_
43 0 2328 unless (exists $default{$k})
46 582 1746 if ($k eq 'test') { }
48 0 582 if (not $v) { }
582 0 elsif (ref $v eq 'Regexp') { }
0 0 elsif (ref $v eq 'CODE') { }
54 582 1164 if $k eq 'length'
64 6 576 unless my $conceal = $obj->concealer(grep(defined($_), $obj->{'except'}, @_))
66 0 576 unless my $match = $obj->{'match'}
69 893 0 if $test
71 855 1 if (my($replace, $regex, $len) = &$conceal(${^MATCH})) { }
84 13 569 unless my(@replace) = @{$obj->{'replace'};}
89 600 255 if (s/$regex/_replace(${^MATCH}, $orig, $len);/epu)
90 600 0 if ($obj->{'ordered'}) { }
105 593 7 if ($width == $len) { }
117 6 1 if ($w <= $width) { }
1 0 elsif ($width == 1) { }
137 1470 60465 if index($_, $c) < 0
138 575 61360 if $max and @a > $max
140 6 576 if @a < 2
145 1 855 if $len < 1
155 582 0 if ($v == 0) { }
0 0 elsif ($v == 1) { }
0 0 elsif ($v == 2) { }