Branch Coverage

blib/lib/MP3/TAG/ID3v2.pm
Criterion Covered Total %
branch 58 160 36.2


line true false branch
93 2 0 if ($self->read_header($header)) { }
94 0 2 if (defined $create and $create) { }
101 2 0 if ($$self{'flags'}{'unsync'})
106 0 2 if ($$self{'flags'}{'extheader'})
107 0 0 unless ($self->read_ext_header(substr($$self{'tag_data'}, 0, 14)))
114 0 0 if (defined $create and $create)
146 0 2 if exists $$self{'frameIDs'}
148 0 2 if ($$self{'flags'}{'extheader'})
155 0 9 if ($size > 255)
159 0 0 if ($pos + 10 + $size > $$self{'data_size'} or not exists $MP3::TAG::ID3v2::long_names{substr $$self{'tag_data'}, $pos + $size, 4})
166 0 0 if ($pos + 20 + $fsize < $$self{'data_size'} and exists $MP3::TAG::ID3v2::long_names{substr $$self{'tag_data'}, $pos + 10 + $fsize, 4})
174 7 2 if ($ID ne "\000\000\000\000") { }
175 2 5 if (exists $$self{'frames'}{$ID})
238 2 1 unless exists $$self{'frameIDs'}
239 0 3 unless exists $$self{'frames'}{$fname}
244 0 3 if ($$frame_flags{'encryption'})
248 0 3 if ($$frame_flags{'groupid'})
253 0 3 if ($$frame_flags{'compression'})
256 0 0 if $usize = !length($data)
258 0 3 if defined $raw
262 3 0 if defined $format
263 2 1 if (scalar keys %$result == 1 and exists $$result{'Text'})
266 0 3 if (wantarray) { }
317 2 0 if (length $$self{'tag_data'} <= $$self{'tagsize'}) { }
320 2 0 if ($mp3obj->open('+<')) { }
333 0 0 if (open NEW, ">$tempfile") { }
347 0 0 unless rename $tempfile, $$mp3obj{'filename'}
373 0 0 if (open NEW, ">$tempfile") { }
381 0 0 unless rename $tempfile, $$mp3obj{'filename'}
413 0 1 unless exists $$self{'frameIDs'}
415 0 1 unless defined $format
422 1 0 if $#data == $args - 1 and $$format[0]{'name'} eq '_encoding'
423 0 1 unless $#data == $args or defined $defenc
427 1 1 if ($$fs{'name'} eq '_encoding')
428 0 1 unless $defenc
429 0 1 if $encoding != 0
435 0 1 if ($$fs{'len'} > 0) { }
0 1 elsif ($$fs{'len'} == 0) { }
452 0 1 if (exists $$self{'frames'}{$fname})
477 0 0 unless exists $$self{'frameIDs'}
478 0 0 unless exists $$self{'frames'}{$fname}
499 0 1 unless exists $$self{'frameIDs'}
500 0 1 unless exists $$self{'frames'}{$fname}
506 0 3 if $$self{'frames'}{$_}{'start'} > $start
529 0 0 if getformat($fname, 'quiet')
554 0 0 unless defined $format
578 2 0 if (substr($header, 0, 3) eq 'ID3')
582 0 2 if ($version != 3 or $subversion != 0)
596 2 14 if ($_)
597 2 0 if ($i == 7) { }
0 0 elsif ($i == 6) { }
0 0 elsif ($i == 5) { }
611 0 2 if $unknownFlag
641 1 7 if ($$rule{'len'} == 0) { }
3 4 elsif ($$rule{'len'} == -1) { }
642 0 1 if (exists $$rule{'encoded'} and $encoding != 0) { }
655 0 8 unless (defined $found and $found ne '')
657 0 0 if exists $$rule{'default'}
660 3 5 if ($$rule{'name'} eq '_encoding') { }
663 0 5 if (exists $$rule{'encoded'} and $encoding != 0)
669 0 5 if exists $$rule{'func'}
671 5 0 unless (exists $$rule{'data'})
677 0 5 if (exists $$rule{'re2'})
699 4 9 if exists $MP3::TAG::ID3v2::format{$fname}
702 0 0 unless defined $quiet
783 0 0 if $index > $#pictypes
789 0 0 if ($data =~ /\((\d+)\)/)
797 0 0 if $text eq ''
802 0 0 unless ($text =~ s[/1][MPEG 1/2 layer I])
803 0 0 unless ($text =~ s[/2][MPEG 1/2 layer II])
804 0 0 unless ($text =~ s[/3][MPEG 1/2 layer III])
814 0 0 if $text eq ''
815 0 0 if ($text =~ m[(?
817 0 0 if ($found =~ s/DIG/Other digital Media/ or $found =~ /DAT/ or $found =~ /DCC/ or $found =~ /DVD/ or $found =~ s/MD/MiniDisc/ or $found =~ s/LD/Laserdisc/) { }
0 0 elsif ($found =~ /CD/) { }
0 0 elsif ($found =~ s/ANA/Other analog Media/) { }
0 0 elsif ($found =~ s/TT/Turntable records/) { }
0 0 elsif ($found =~ s/TV/Television/ or $found =~ s/VID/Video/ or $found =~ s/RAD/Radio/) { }
0 0 elsif ($found =~ s/TEL/Telephone/) { }
0 0 elsif ($found =~ s/REE/Reel/ or $found =~ s/MC/MC (normal cassette)/) { }