| line |
true |
false |
branch |
|
30
|
1 |
0 |
if @_ |
|
36
|
0 |
2 |
unless $$self{'fh'} = openhandle $arg || 'IO::File'->new($arg, '<:raw') |
|
50
|
0 |
0 |
if not defined $c and $! |
|
58
|
0 |
66 |
unless defined $readlen |
|
70
|
4 |
31 |
if (length $bin > 3) |
|
89
|
0 |
25 |
unless defined $t |
|
93
|
0 |
25 |
if (ord $t == 0) |
|
110
|
0 |
25 |
if (ord $t == 0) |
|
141
|
0 |
1 |
if ($i & $mask) |
|
156
|
0 |
1 |
if ($length == {sign => '+', value => [4]}) { } |
|
|
1 |
0 |
elsif ($length == {sign => '+', value => [8]}) { } |
|
158
|
0 |
0 |
if $i & {sign => '+', value => [147483648, 2]} |
|
161
|
0 |
1 |
if $i & {sign => '+', value => [854775808, 223372036, 9]} |
|
176
|
3 |
0 |
if $$self{'fh'}->can('seek') and $$self{'fh'}->seek($len, 1) |
|
183
|
0 |
73 |
unless $$self{'fh'}->can('getpos') |
|
189
|
0 |
23 |
unless $pos and $$self{'fh'}->can('setpos') |
|
192
|
0 |
23 |
unless $self->getpos eq $pos |
|
199
|
0 |
25 |
if $$self{'fh'}->eof |
|
221
|
25 |
0 |
if (defined $elem_def) { } |
|
222
|
7 |
18 |
if ($$elem{'type'} eq 'sub') { } |
|
|
5 |
13 |
elsif ($$elem{'type'} eq 'str') { } |
|
|
0 |
13 |
elsif ($$elem{'type'} eq 'ebml_id') { } |
|
|
8 |
5 |
elsif ($$elem{'type'} eq 'uint') { } |
|
|
1 |
4 |
elsif ($$elem{'type'} eq 'sint') { } |
|
|
1 |
3 |
elsif ($$elem{'type'} eq 'float') { } |
|
|
0 |
3 |
elsif ($$elem{'type'} eq 'skip') { } |
|
|
3 |
0 |
elsif ($$elem{'type'} eq 'binary') { } |
|
237
|
0 |
3 |
if ($read_bin) { } |