Branch Coverage

blib/lib/CDDB/Fake.pm
Criterion Covered Total %
branch 43 52 82.6


line true false branch
110 4 0 if (ref $file) { }
115 0 0 unless open $fh, $file
122 8 44 unless /\S/
126 4 40 if ($state == 0)
127 2 2 if (m[^\s*(.+)\s+/\s+(.*)]) { }
141 38 2 if ($state == 1)
142 24 14 if (/^\s*(\d+)\.?\s+(.*)/) { }
10 4 elsif (defined $to and /^\s+(.+)/) { }
146 12 12 if ($tt =~ /^(.*?)\t+ ?(\d+):(\d\d)\s*$/) { }
155 12 12 if ($va)
156 2 10 if ($tt =~ /^(.+?):\s+(.*)/) { }
2 8 elsif ($tt =~ m[^(.+?)\s+/\s+(.*)]) { }
168 12 12 if $tl
181 4 2 if ($state == 2)
210 16 4 unless /\\n/
301 1 3 unless $$self{'_length'}
313 0 4 unless $$self{'_extd'}
337 32 1 if $desc eq $tag
348 1 1 if ($self->length)
363 12 0 if defined $tracks[$i]
399 0 3 unless (shift())->[0]
407 0 5 unless (shift())->[1]
415 0 17 unless (shift())->[2]
425 1 2 unless (shift())->[3]
436 0 7 unless (shift())->[4]
450 4 6 if (defined $$self[5] and CORE::length $$self[5] > 0) { }