line |
true |
false |
branch |
35
|
31 |
0 |
if ($] <= 5.006) { } |
144
|
31 |
372 |
$_[0] == 12 ? : |
203
|
3 |
2100 |
unless (CORE::read($fh, $header, 3, 1) || (return undef)) == 3 |
208
|
73 |
2027 |
if ($hr[0] = ($hb[1] & 224) >> 5) != 7 |
209
|
21 |
2006 |
if ($hr[1] = ($hb[1] & 24) >> 3) == 0 |
210
|
1 |
2026 |
if $hr[1] == 1 |
211
|
2 |
2024 |
if ($hr[2] = ($hb[1] & 6) >> 1) == 0 |
212
|
7 |
2017 |
if ($hr[4] = ($hb[2] & 240) >> 4) == 15 |
213
|
4 |
2013 |
if ($hr[5] = ($hb[2] & 12) >> 2) == 3 |
214
|
11 |
2002 |
if ($hr[12] = ($hb[3] & 3) >> 0) == 2 |
235
|
607 |
1396 |
unless ($hr[3]) |
236
|
0 |
607 |
unless (CORE::read($fh, $sum, 2) || (return undef)) == 2 |
239
|
0 |
2003 |
unless my $bitrate = $bitrates[$version[$hr[1]]][$layer[$hr[2]]][$hr[4]] || $MPEG::Audio::Frame::free_bitrate |
243
|
60 |
1536 |
$use_smaller ? : |
|
0 |
407 |
$use_smaller ? : |
|
1596 |
407 |
$layer[$hr[2]] ? : |
247
|
1396 |
607 |
$hr[3] ? : |
248
|
14 |
1989 |
unless (CORE::read($fh, my $content, $clength) || (return undef)) == $clength |
283
|
0 |
0 |
wantarray ? : |
347
|
0 |
240 |
unless $self->layer3 |
352
|
10 |
0 |
if $self->_jmodes and $self->joint_stereo and not $self->intensity_stereo |
357
|
80 |
0 |
if $self->_jmodes and $self->joint_stereo |
362
|
30 |
0 |
if $self->_jmodes and $self->intensity_stereo |
367
|
80 |
0 |
if $self->_jmodes and $self->joint_stereo |
372
|
10 |
0 |
if $self->_jmodes |
377
|
30 |
0 |
if $self->_jmodes |
383
|
0 |
0 |
unless not $self->layer3 |
388
|
0 |
0 |
if $self->_bands |
393
|
0 |
0 |
if $self->_bands |
398
|
0 |
0 |
if $self->_bands |
403
|
0 |
0 |
if $self->_bands |
408
|
117 |
30 |
unless $self->stereo |
417
|
45 |
59 |
$version[$self->{'header'}[1]] == 0 ? : |
|
0 |
0 |
$version[$self->{'header'}[1]] == 0 ? : |
|
104 |
0 |
$layer[$self->{'header'}[2]] ? : |
504
|
1935 |
0 |
unless (defined $self->{'broken'}) |
505
|
1328 |
607 |
unless $self->has_crc |
506
|
578 |
29 |
unless ($self->{'header'}[2] & 2) == 0 |
508
|
0 |
29 |
$self->{'header'}[8] == 3 ? : |
528
|
2 |
27 |
($c & 65535) != unpack('n', $self->{'crc_sum'}) ? : |