| line |
true |
false |
branch |
|
26
|
17 |
0 |
ref $_ eq 'HASH' ? : |
|
31
|
1 |
16 |
unless defined $type |
|
33
|
1 |
15 |
unless my $code = $_TypeToCode{$type} |
|
35
|
1 |
14 |
unless defined $name |
|
37
|
1 |
13 |
unless _make_utf8($name) |
|
39
|
3 |
10 |
unless defined $ref |
|
40
|
1 |
12 |
unless _make_utf8($ref) |
|
43
|
0 |
12 |
if 255 < length $name |
|
44
|
0 |
12 |
if 255 < length $ref |
|
49
|
1 |
5 |
if ($metadata and scalar keys %$metadata) |
|
55
|
0 |
6 |
if utf8::is_utf8($ret) |
|
74
|
2 |
25 |
ref $_[0] ? : |
|
82
|
1 |
5 |
unless defined $$params{'format'} |
|
89
|
1 |
5 |
if (defined $bytes) { } |
|
93
|
0 |
5 |
unless defined $handle |
|
94
|
0 |
5 |
unless seek $handle, $header_len, 0 |
|
100
|
0 |
6 |
unless $meta_end >= 0 |
|
101
|
1 |
5 |
if ($meta_end > 0) { } |
|
114
|
0 |
12 |
unless $end <= length $bytes |
|
117
|
9 |
3 |
$refLen ? : |
|
139
|
9 |
3 |
defined $$self[2] ? : |