| line |
true |
false |
branch |
|
38
|
592 |
0 |
if @_ |
|
45
|
0 |
3556 |
unless (exists $default{$k}) |
|
48
|
592 |
2964 |
if ($k eq 'test') { } |
|
50
|
0 |
592 |
if (not $v) { } |
|
|
592 |
0 |
elsif (ref $v eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $v eq 'CODE') { } |
|
56
|
592 |
2372 |
if $k eq "length" |
|
66
|
6 |
586 |
unless my $conceal = $obj->concealer(grep(defined($_), $obj->{'except'}, @_)) |
|
68
|
0 |
586 |
unless my $match = $obj->{'match'} |
|
71
|
906 |
0 |
if $test |
|
73
|
866 |
3 |
if (my($replace, $regex, $len) = &$conceal(${^MATCH})) { } |
|
86
|
15 |
577 |
unless my(@replace) = @{$obj->{'replace'};} |
|
93
|
608 |
1477 |
if (s/$regex/_replace(${^MATCH}, $orig, $len);/epu) |
|
94
|
608 |
0 |
if ($obj->{'duplicate'}) { } |
|
|
0 |
0 |
elsif ($obj->{'ordered'}) { } |
|
111
|
601 |
7 |
if ($width == $len) { } |
|
123
|
6 |
1 |
if ($w <= $width) { } |
|
|
1 |
0 |
elsif ($width == 1) { } |
|
143
|
1493 |
60465 |
if index($_, $c) == -1 |
|
144
|
585 |
61373 |
if $max and @a > $max |
|
146
|
6 |
586 |
if @a < 2 |
|
151
|
7 |
862 |
if ($len == 0) |
|
152
|
4 |
3 |
if (defined(my $zerowidth = $obj->{'zerowidth'})) { } |
|
167
|
592 |
0 |
if ($v == 0) { } |
|
|
0 |
0 |
elsif ($v == 1) { } |
|
|
0 |
0 |
elsif ($v == 2) { } |