| line |
true |
false |
branch |
|
18
|
1 |
4 |
if (ref $file) { } |
|
28
|
1 |
3 |
unless (open my $fh, '<', $file) |
|
43
|
3 |
1 |
if (_init(\%data)) |
|
59
|
2 |
1 |
unless $key |
|
78
|
0 |
4 |
unless $self->{'COMMENTS'}{lc $key} |
|
82
|
1 |
3 |
wantarray ? : |
|
108
|
1 |
3 |
if ($buffer eq 'ID3') { } |
|
113
|
0 |
13 |
if (($found = index($buffer, 'OggS')) >= 0) { } |
|
147
|
1 |
3 |
if (substr($buffer, 0, 4) ne 'OggS') |
|
155
|
0 |
3 |
if (ord substr($buffer, 4, 1) != 0) |
|
168
|
0 |
3 |
if (ord substr($buffer, 5, 1) != 2) |
|
184
|
0 |
3 |
if (ord substr($buffer, 0, 1) != 1) |
|
192
|
0 |
3 |
if (substr($buffer, 1, 6) ne 'vorbis') |
|
268
|
9 |
0 |
if (not $done and read($fh, $buff, 28) == 28) { } |
|
270
|
0 |
9 |
unless ($buff =~ /^OggS/) |
|
277
|
3 |
6 |
if $flag & 2 |
|
278
|
9 |
0 |
unless $flag & 1 |
|
282
|
0 |
0 |
unless %val |
|
290
|
3 |
6 |
if (defined $val{$stream} and not $flag & 1) |
|
294
|
3 |
0 |
if ($packets > $MAX_PACKETS * $streams) |
|
296
|
3 |
0 |
unless %val |
|
303
|
0 |
6 |
if $packets > $MAX_PACKETS * $streams and not %val |
|
315
|
6 |
0 |
if ($nseg) |
|
316
|
0 |
6 |
unless read($fh, $buff, $nseg - 1) == $nseg - 1 |
|
322
|
6 |
0 |
if (defined $page) |
|
323
|
6 |
0 |
if ($page == $page_num) { } |
|
332
|
0 |
6 |
unless read($fh, $buff, $data_len) == $data_len |
|
334
|
0 |
6 |
if (defined $val{$stream}) { } |
|
|
6 |
0 |
elsif (not $flag & 1) { } |
|
340
|
3 |
3 |
if ($buff =~ /^(.)vorbis/s and ord $1 == 3) |
|
346
|
0 |
6 |
if (defined $val{$stream} and $flag & 4) |
|
366
|
0 |
9 |
if $pos + 4 > $end |
|
368
|
0 |
9 |
if $pos + 4 + $len > $end |
|
373
|
6 |
3 |
if (defined $num) { } |
|
374
|
0 |
6 |
unless $buff =~ /(.*?)=(.*)/s |
|
379
|
3 |
0 |
$pos + 4 < $end ? : |
|
389
|
3 |
6 |
unless ($num--) |
|
420
|
0 |
3 |
if ($data->{'filesize'} - $data->{'INFO'}{'offset'} > $data->{'INFO'}{'blocksize_0'} * 2) { } |
|
|
3 |
0 |
elsif ($data->{'filesize'} < $data->{'INFO'}{'blocksize_0'}) { } |
|
429
|
0 |
3 |
if ($data->{'INFO'}{'blocksize_0'} == 0) |
|
447
|
3 |
87 |
if (substr($buf, $i, 4) eq 'OggS') |
|
455
|
0 |
0 |
if $len == $data->{'filesize'} |
|
458
|
0 |
0 |
if $len > $data->{'filesize'} |
|
463
|
0 |
3 |
unless ($found_header) |
|
469
|
0 |
3 |
if (ord substr($buf, 0, 1, '') != 0) |
|
479
|
0 |
3 |
if ($granule_position and $data->{'INFO'}{'rate'}) { } |