Branch Coverage

blib/lib/MP3/Tag/Cue.pm
Criterion Covered Total %
branch 6 60 10.0


line true false branch
80 0 0 if $case
91 0 170 if @cue > 1
92 0 170 if @cue > 1
98 85 0 if ref $f
100 0 85 if ($f =~ /\.cue$/i and -f $f) { }
105 85 0 unless ($c)
110 85 0 unless @cue == 1
112 0 0 unless open F, "< $cue[0]"
113 0 0 if ($e = ($p || 'MP3::Tag')->get_config1('decode_encoding_cue_file'))
117 0 0 unless close F
150 0 0 if (defined $what)
151 0 0 if $what =~ /^artist_collection/i
152 0 0 if $what =~ /^al/i
153 0 0 if $what =~ /^a/i
154 0 0 if $what =~ /^songwriter/i
155 0 0 if $what =~ /^tr/i
156 0 0 if $what =~ /^y/i
157 0 0 if $what =~ /^c/i
158 0 0 if $what =~ /^g/i
162 0 0 unless wantarray
173 0 0 unless $track or length $track
179 0 0 unless $l =~ /^\s*(REM\s+)? (GENRE|DATE|DISCID|COMMENT|PERFORMER|TITLE |ISRC|POSTGAP|PREGAP|SONGWRITER |FILE|INDEX|TRACK|CATALOG|CDTEXTFILE|FLAGS)\s+(.*)/x
186 0 0 if $field eq 'track' and $val =~ /^0?(\d+)/
187 0 0 if length $track_seen and $track_seen != $track
190 0 0 if length $track_seen
191 0 0 if $field eq 'title'
192 0 0 if $field eq 'performer'
198 0 0 if exists $self->{'parsed'}
248 0 0 if defined $self->{'track'}
249 0 0 if $self->{'recursive'} or not $self->parent_ok