| line |
true |
false |
branch |
|
49
|
3 |
23 |
if ($class->can('from_frame') != \&from_frame) { } |
|
|
23 |
0 |
elsif ($class->can('new')) { } |
|
69
|
14 |
81 |
if ($class->can('from_name') != \&from_name) { } |
|
|
81 |
0 |
elsif ($class->can('new')) { } |
|
131
|
5 |
19 |
!looks_like_number($_[1]) ? : |
|
136
|
2 |
16 |
$_[1] != int $_[1] ? : |
|
|
18 |
4 |
unless $_[0]->SUPER::validate($_[1]) |
|
142
|
1 |
1 |
$_[1] =~ /[^\x00-\x7f]/ ? : |
|
177
|
1 |
2 |
$_[1] =~ /\.(\d*)$/ ? : |
|
178
|
0 |
3 |
blessed($_[1]) ? : |
|
227
|
1 |
1 |
!($hex =~ /^[0-9A-F]{32}$/i) ? : |
|
241
|
4 |
7 |
blessed($_[1]) ? : |
|
244
|
3 |
8 |
if ($n < 0) { } |
|
246
|
1 |
2 |
if length($hex) % 2 |
|
249
|
1 |
2 |
if unpack('C', $bytes) < 128 |
|
253
|
4 |
4 |
if length($hex) % 2 |
|
256
|
1 |
7 |
if unpack('C', $bytes) >= 128 |
|
263
|
3 |
8 |
if (unpack('C', $_[1]) >= 128) { } |
|
274
|
0 |
0 |
if length $_[1] == 4 |
|
275
|
0 |
0 |
if length $_[1] == 16 |
|
304
|
0 |
7 |
unless $_[0] =~ s/^
|
|
306
|
0 |
7 |
unless $_[0] =~ s/^>// |
|
313
|
1 |
5 |
unless eval {
do {
@$l
}
} |
|
346
|
0 |
7 |
unless $_[0] =~ s/^
|
|
348
|
0 |
7 |
unless $_[0] =~ s/^,// |
|
350
|
0 |
7 |
unless $_[0] =~ s/^>// |
|
358
|
1 |
3 |
unless eval {
do {
%$m
}
} |