| blib/lib/Audio/M4P/QuickTime.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 42 | 82 | 51.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 412 | 0 | 514 | 265439 | $type and $_->type |
| 444 | 0 | 0 | 0 | $outfile and open my $dumpfh, ">$outfile" |
| 608 | 0 | 0 | 0 | $udta and $$udta{'type'} =~ /udta/i |
| 623 | 3 | 0 | 0 | $entry and $delete_old |
| 694 | 2 | 0 | 0 | $tracknum and $tracks |
| 701 | 0 | 0 | 2 | defined $$self{'MP4Info'}{'CPRT'} and length $$self{'MP4Info'}{'CPRT'} > 3 |
| 708 | 0 | 0 | 2 | defined $$self{'MP4Info'}{'GENRE'} and $$self{'MP4Info'}{'GENRE'} =~ /^\d+$/ |
| 0 | 0 | 2 | defined $$self{'MP4Info'}{'GENRE'} and $$self{'MP4Info'}{'GENRE'} =~ /^\d+$/ and $$self{'MP4Info'}{'GENRE'} < 128 | |
| 764 | 22 | 1 | 13 | $entry and $delete_old |
| 775 | 4 | 0 | 0 | $type eq 'disk' and $value =~ /(\d+)\D+(\d+)/ |
| 1 | 0 | 3 | $type eq 'trkn' and $value =~ /(\d+)\D+(\d+)/ | |
| 791 | 28 | 3 | 1 | $typ eq 'covr' and $ilst->Contained($typ) |
| 1022 | 2 | 0 | 2 | $new_trkn and $new_tcount |
| line | l | !l | condition |
|---|---|---|---|
| 699 | 0 | 2 | $tempo || 'Undefined' |
| 727 | 0 | 0 | $mdat->size || 1 |
| 759 | 36 | 0 | $self->FindAtom('ilst') || $self->MakeIlstAtom || (return) |
| 854 | 4 | 0 | $$dict{'trackCount'} || 0 |
| 935 | 1 | 0 | $self->FindAtom('ilst') || $self->MakeIlstAtom || (return) |
| 962 | 4 | 2 | $$tags{'TITLE'} || '' |
| 969 | 6 | 2 | $$tags{'ALBUM'} || '' |
| 976 | 4 | 1 | $$tags{'ARTIST'} || '' |
| 983 | 4 | 1 | $$tags{'COMMENT'} || '' |
| 990 | 4 | 1 | $$tags{'YEAR'} || 0 |
| 997 | 6 | 1 | $$tags{'GENRE'} || '' |
| 1013 | 0 | 0 | $$tags{'TRACKCOUNT'} || 0 |
| 1017 | 0 | 1 | $$tags{'TRKN'} || 0 |
| 1025 | 4 | 0 | $$tags{'TRKN'} || 0 |
| 1026 | 4 | 0 | $$tags{'TRACKCOUNT'} || 0 |
| 1039 | 0 | 1 | $$tags{'TRKN'} || 0 |
| 1040 | 0 | 1 | $$tags{'TRACKCOUNT'} || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 471 | 49 | 0 | 0 | @stco_atoms or @co64_atoms |
| 560 | 0 | 0 | 0 | $self->FindAtom('mp4a') or $args{'force'} |
| 758 | 15 | 21 | 0 | $tag_types{$field} || lc substr($field, 0, 4) |