Condition Coverage

blib/lib/MP3/Tag/CDDB_File.pm
Criterion Covered Total %
condition 36 78 46.1


and 3 conditions

line !l l&&!r l&&r condition
69 36 0 0 $e = $h->get_config("decode_encoding_cddb_file") and $e->[0]
174 0 8 0 defined $a and $a =~ /^\s*(<<\s*)?(Various Artists|compilation disc)\s*(>>\s*)?$/i
176 6 2 0 defined $aa and $aa =~ /^\s*(<<\s*)?(Various Artists|compilation disc)\s*(>>\s*)?$/i
178 0 0 8 defined $a and length $a
0 6 2 defined $a and length $a and defined $aa
6 0 2 defined $a and length $a and defined $aa and length $aa
179 6 0 2 defined $aa and length $aa
181 0 0 8 defined $tt and length $tt
185 0 0 16 defined $f and length $f
188 3 2 1 $2 and not $y
191 0 2 0 $2 && $8
14 0 2 $f =~ s[ ((^|[;,.]|\s+-\s) # 1,2 \s* (Recorded (\s+[io]n)? \s* (:\s*)? )? # 3, 4, 5 (\d{4}([-,][-\d\/,]+)?) # 6, 7 \b \s* (?: [.;] \s* )? ((?:[;.,]|\s-\s|$)\s*)) # 8 ][($self->{'parent'}->get_config('comment_remove_date')->[0] && !($2 && $8) ? "" : $1) . ($2 && $8 ? $8 : "");]eimx and not $2 && $8
199 1 0 1 $self->{'parent'}->get_config('comment_remove_date')->[0] && !($2 && $8)
0 2 0 $2 && $8
204 0 0 0 $c2 and $f eq $c2
212 0 0 8 defined $c2 and length $c2
213 0 0 8 defined $c1 and length $c1
0 0 8 defined $c1 and length $c1 and $c1 ne substr($c2, 0, length $c1)
0 0 8 defined $c1 and length $c1 and $c1 ne substr($c2, 0, length $c1) and $c1 ne substr($c2, -length($c1))
223 0 5 3 defined $cat and $cat =~ /^\d+$/

or 3 conditions

line l !l&&r !l&&!r condition
186 3 3 16 $f =~ s/^\s*((YEAR|ID3Y)|ID3G)\b:?\s*(\d+)\b\s*(([;.,]|\s-\s)\s*)?//i or $f =~ s/(?:\s*(?:[;.,]|\s-\s))?\s*\b((YEAR|ID3Y)|ID3G)\b:?\s*(\d+)\s*([;.,]\s*)?$//i
189 3 0 3 $2 or $cat
204 2 0 0 $3 or $7
0 0 0 $3 or $7 or not $y
0 0 0 $3 or $7 or not $y or $c2 and $f eq $c2
283 9 0 10 $self->{'recursive'} or not $self->parent_ok