line |
true |
false |
branch |
37
|
31 |
0 |
if ($] <= 5.006) { } |
146
|
31 |
372 |
$_[0] == 12 ? : |
205
|
3 |
2099 |
unless (CORE::read($fh, $header, 3, 1) || (return undef)) == 3 |
210
|
73 |
2026 |
if ($hr[0] = ($hb[1] & 224) >> 5) != 7 |
211
|
21 |
2005 |
if ($hr[1] = ($hb[1] & 24) >> 3) == 0 |
212
|
1 |
2025 |
if $hr[1] == 1 |
213
|
2 |
2023 |
if ($hr[2] = ($hb[1] & 6) >> 1) == 0 |
214
|
7 |
2016 |
if ($hr[4] = ($hb[2] & 240) >> 4) == 15 |
215
|
4 |
2012 |
if ($hr[5] = ($hb[2] & 12) >> 2) == 3 |
216
|
11 |
2001 |
if ($hr[12] = ($hb[3] & 3) >> 0) == 2 |
237
|
607 |
1395 |
unless ($hr[3]) |
238
|
0 |
607 |
unless (CORE::read($fh, $sum, 2) || (return undef)) == 2 |
241
|
0 |
2002 |
unless my $bitrate = $bitrates[$version[$hr[1]]][$layer[$hr[2]]][$hr[4]] || $MPEG::Audio::Frame::free_bitrate |
245
|
60 |
1535 |
$use_smaller ? : |
|
0 |
407 |
$use_smaller ? : |
|
1595 |
407 |
$layer[$hr[2]] ? : |
249
|
1395 |
607 |
$hr[3] ? : |
250
|
14 |
1988 |
unless (CORE::read($fh, my $content, $clength) || (return undef)) == $clength |
283
|
0 |
0 |
wantarray ? : |
349
|
0 |
240 |
unless $self->layer3 |
354
|
10 |
0 |
if $self->_jmodes and $self->joint_stereo and not $self->intensity_stereo |
359
|
80 |
0 |
if $self->_jmodes and $self->joint_stereo |
364
|
30 |
0 |
if $self->_jmodes and $self->intensity_stereo |
369
|
80 |
0 |
if $self->_jmodes and $self->joint_stereo |
374
|
10 |
0 |
if $self->_jmodes |
379
|
30 |
0 |
if $self->_jmodes |
385
|
0 |
0 |
unless not $self->layer3 |
390
|
0 |
0 |
if $self->_bands |
395
|
0 |
0 |
if $self->_bands |
400
|
0 |
0 |
if $self->_bands |
405
|
0 |
0 |
if $self->_bands |
410
|
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]] ? : |
506
|
1935 |
0 |
unless (defined $$self{'broken'}) |
507
|
1328 |
607 |
unless $self->has_crc |
508
|
578 |
29 |
unless ($$self{'header'}[2] & 2) == 0 |
510
|
0 |
29 |
$$self{'header'}[8] == 3 ? : |
530
|
2 |
27 |
($c & 65535) != unpack('n', $$self{'crc_sum'}) ? : |