| 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) { } |