Branch Coverage

blib/lib/Lyrics/Fetcher.pm
Criterion Covered Total %
branch 5 32 15.6


line true false branch
51 3 8 if (-d "$d/$me/")
55 3 6 if (my($fetcher) = $b =~ /^(.*)\.pm$/)
56 3 0 if $fetcher eq 'Cache'
125 0 0 wantarray ? :
151 0 0 if (defined(my $cached = Lyrics::Fetcher::Cache::get($artist, $title)))
156 0 0 $cached ? :
160 0 0 if ($fetcherspec and not ref $fetcherspec and $fetcherspec ne 'auto') { }
0 0 elsif (ref $fetcherspec eq 'ARRAY') { }
162 0 0 if (grep /$fetcherspec/, @Lyrics::Fetcher::FETCHERS) { }
172 0 0 if (grep /$fetcher/, @Lyrics::Fetcher::FETCHERS) { }
195 0 0 if (not $artist && $title or ref $artist or ref $title)
200 0 0 if (not $fetchers or ref $fetchers ne 'ARRAY')
213 0 0 if ($@)
221 0 0 unless ($fetcherpkg->can('fetch'))
228 0 0 if ($Lyrics::Fetcher::Error eq 'OK') { }
271 0 0 if $Lyrics::Fetcher::debug