| line |
true |
false |
branch |
|
17
|
1 |
58 |
ref $_[0] eq 'HASH' ? : |
|
|
59 |
0 |
@_ == 1 ? : |
|
19
|
0 |
59 |
unless defined $p{'file'} |
|
20
|
59 |
0 |
unless defined $p{'format'} |
|
24
|
0 |
59 |
unless my $codec = $_Formats{$p{'format'}} |
|
33
|
0 |
21 |
unless defined $entries and ref $entries eq 'ARRAY' |
|
34
|
0 |
21 |
unless my $codec = $_Formats{$format} |
|
55
|
0 |
21 |
unless defined $dec and $dec ne \&decode |
|
78
|
59 |
3 |
unless (defined $$params{'data'}) |
|
79
|
59 |
0 |
unless defined $$params{'handle'} |
|
81
|
0 |
59 |
unless seek $$params{'handle'}, 0, 0 |
|
87
|
0 |
62 |
unless substr($buf, 0, length $_MagicNumber) eq $_MagicNumber |
|
92
|
59 |
3 |
unless (defined $$params{'data'}) |
|
99
|
0 |
62 |
unless substr($buf, length($_MagicNumber) + 2, 1) eq ' ' and substr($buf, length($_MagicNumber) + 3 + $format_len, 1) eq "\n" |
|
108
|
148 |
0 |
if defined $got and $got == $_[3] |
|
111
|
0 |
0 |
if (defined $got) { } |
|
112
|
0 |
0 |
unless $got > 0 |
|
117
|
0 |
0 |
unless $!{'EINTR'} or $!{'EAGAIN'} |