| line |
true |
false |
branch |
|
38
|
0 |
0 |
unless $$v{'match'} |
|
62
|
15669 |
3410 |
if defined $cap |
|
64
|
0 |
3410 |
unless $$obj{'bool'} |
|
65
|
0 |
3410 |
if $_[0]->from > length $$obj{'str'} |
|
84
|
6308 |
5433 |
substr($str, $$MATCH{'to'}) =~ /^([[:space:]])/ ? : |
|
95
|
1692 |
13413 |
substr($str, $$MATCH{'to'}) =~ /^([[:digit:]])/ ? : |
|
107
|
8113 |
8719 |
substr($str, $$MATCH{'to'}) =~ /^([[:word:]])/ ? : |
|
119
|
0 |
0 |
unless open FILE, $source_filename |
|
139
|
0 |
0 |
$_[1] ? : |
|
164
|
0 |
0 |
$_[1] ? : |
|
170
|
0 |
19 |
if $can |
|
171
|
5 |
14 |
if (ref $_[0]) |
|
172
|
5 |
0 |
if ref $_[0] eq 'ARRAY' |
|
173
|
0 |
0 |
if ref $_[0] eq 'HASH' |
|
180
|
4 |
500 |
if (ref $_) |
|
192
|
6645 |
3006 |
unless $ref eq 'ARRAY' and $_[1] eq 'Array' or $ref eq 'HASH' and $_[1] eq 'Hash' or $ref eq '' and $_[1] eq 'Str' or $ref eq $_[1] |
|
222
|
0 |
0 |
unless &Scalar::Util::refaddr($_[0]) |
|
227
|
0 |
11 |
unless defined $_[0] |
|
231
|
3 |
8 |
if (ref $o) { } |
|
233
|
0 |
3 |
if ($_seen{$key} || 0) > 3 |
|
235
|
0 |
3 |
if ref $o eq 'ARRAY' |
|
237
|
3 |
0 |
if ref $o eq 'HASH' |
|
239
|
0 |
0 |
if ref $o eq 'CODE' |
|
243
|
4 |
4 |
if $o =~ /^[0-9]/ and 0 + $o eq $o |
|
249
|
0 |
0 |
if $can |
|
251
|
0 |
0 |
if $ref eq 'SCALAR' |
|
259
|
0 |
0 |
if ($can) { } |
|
269
|
0 |
1660 |
unless defined $_[0] |
|
271
|
0 |
1660 |
if ($can) { } |
|
280
|
0 |
0 |
unless defined $_[0] |
|
282
|
0 |
0 |
if ($can) { } |
|
291
|
0 |
0 |
$_[0] ? : |