| line |
true |
false |
branch |
|
51
|
3 |
23 |
if ($class->can('from_frame') != \&from_frame) { } |
|
|
23 |
0 |
elsif ($class->can('new')) { } |
|
71
|
14 |
81 |
if ($class->can('from_name') != \&from_name) { } |
|
|
81 |
0 |
elsif ($class->can('new')) { } |
|
133
|
5 |
19 |
!looks_like_number($_[1]) ? : |
|
138
|
2 |
16 |
$_[1] != int $_[1] ? : |
|
|
18 |
4 |
unless $_[0]->SUPER::validate($_[1]) |
|
144
|
1 |
1 |
$_[1] =~ /[^\x00-\x7f]/ ? : |
|
186
|
1 |
2 |
$_[1] =~ /\.(\d*)$/ ? : |
|
187
|
0 |
3 |
blessed($_[1]) ? : |
|
243
|
1 |
1 |
!($hex =~ /^[0-9A-F]{32}$/i) ? : |
|
257
|
4 |
7 |
blessed($_[1]) ? : |
|
260
|
3 |
8 |
if ($n < 0) { } |
|
262
|
1 |
2 |
if length($hex) % 2 |
|
265
|
1 |
2 |
if unpack('C', $bytes) < 128 |
|
269
|
4 |
4 |
if length($hex) % 2 |
|
272
|
1 |
7 |
if unpack('C', $bytes) >= 128 |
|
279
|
3 |
8 |
if (unpack('C', $_[1]) >= 128) { } |
|
290
|
0 |
0 |
if length $_[1] == 4 |
|
291
|
0 |
0 |
if length $_[1] == 16 |
|
320
|
0 |
7 |
unless $_[0] =~ s/^
|
|
322
|
0 |
7 |
unless $_[0] =~ s/^>// |
|
329
|
1 |
5 |
unless eval {
do {
@$l
}
} |
|
362
|
0 |
7 |
unless $_[0] =~ s/^
|
|
364
|
0 |
7 |
unless $_[0] =~ s/^,// |
|
366
|
0 |
7 |
unless $_[0] =~ s/^>// |
|
374
|
1 |
3 |
unless eval {
do {
%$m
}
} |