| line |
true |
false |
branch |
|
36
|
0 |
0 |
if @_ |
|
43
|
0 |
0 |
unless (exists $default{$k}) |
|
46
|
0 |
0 |
if ($k eq 'test') { } |
|
48
|
0 |
0 |
if (not $v) { } |
|
|
0 |
0 |
elsif (ref $v eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $v eq 'CODE') { } |
|
54
|
0 |
0 |
if $k eq 'length' |
|
64
|
0 |
0 |
unless my $conceal = $obj->concealer(grep(defined($_), $obj->{'except'}, @_)) |
|
66
|
0 |
0 |
unless my $match = $obj->{'match'} |
|
69
|
0 |
0 |
unless not $test or &$test($arg) |
|
71
|
0 |
0 |
if (my($replace, $regex, $len) = &$conceal(${^MATCH})) { } |
|
84
|
0 |
0 |
unless my(@replace) = @{$obj->{'replace'};} |
|
89
|
0 |
0 |
if (s/$regex/_replace(${^MATCH}, $orig, $len);/epu) |
|
90
|
0 |
0 |
if ($obj->{'ordered'}) { } |
|
105
|
0 |
0 |
if ($width == $len) { } |
|
117
|
0 |
0 |
if ($w <= $width) { } |
|
|
0 |
0 |
elsif ($width == 1) { } |
|
137
|
0 |
0 |
unless /\Q$c\E/u |
|
138
|
0 |
0 |
if $max and @a > $max |
|
140
|
0 |
0 |
if @a < 2 |
|
145
|
0 |
0 |
if $len < 1 |
|
155
|
0 |
0 |
if ($v == 0) { } |
|
|
0 |
0 |
elsif ($v == 1) { } |
|
|
0 |
0 |
elsif ($v == 2) { } |