Branch Coverage

blib/lib/MP3/TAG/ID3v1.pm
Criterion Covered Total %
branch 13 44 29.5


line true false branch
78 0 2 if (defined $create and $create) { }
85 2 0 if ($create or substr($buffer, 0, 3) eq 'TAG') { }
126 0 6 unless $attr =~ /[^A-Z]/
127 0 6 unless $MP3::TAG::ID3v1::ok_length{$attr}
129 2 4 if (my $new = shift())
132 0 2 if ($attr eq 'genre')
133 0 0 if ($new =~ /^\d+$/) { }
163 0 0 if ($#_ == 6)
171 0 0 if ($$self{'genre'} =~ /^\d+$/) { }
196 0 2 unless exists $$self{'song'} and exists $$self{'changed'}
202 2 0 if ($mp3obj->open('+<'))
205 2 0 if ($mp3tag eq 'TAG') { }
231 0 0 if ($mp3tag eq 'TAG')
233 0 0 if ($mp3obj->open('+<'))
261 0 0 unless defined $genre
262 0 0 if $genre =~ /^\d+$/
265 0 0 if ($_ eq $genre)
283 0 2 if ($$self{'new'}) { }
292 0 2 if ($id3v1 != 0)
294 0 0 if $$self{'track'} != 32
304 0 2 unless defined $id and $id < $#MP3::TAG::ID3v1::winamp_genres
313 0 0 if (uc $genre eq uc $_)