Branch Coverage

blib/lib/Ogg/Vorbis/Header/PurePerl.pm
Criterion Covered Total %
branch 56 92 60.8


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'}) { }