Branch Coverage

blib/lib/WWW/TinySong.pm
Criterion Covered Total %
branch 14 64 21.8


line true false branch
81 0 2 unless defined $_[0] and UNIVERSAL::isa($_[0], 'WWW::TinySong')
97 0 2 $ret =~ /^NSF;?$/ ? :
107 0 0 unless defined $_[0] and UNIVERSAL::isa($_[0], 'WWW::TinySong')
165 0 0 if (wantarray) { }
166 0 0 unless defined $limit
175 0 0 wantarray ? :
204 0 3 unless length $method
209 0 3 unless length $search_terms
216 0 3 if $param
232 1 0 unless m[^(http://.*); (\d*); (.*); (\d*); (.*); (\d*); (.*); (http://.*)$]
296 0 0 if (wantarray) { }
297 0 0 unless defined $limit
315 0 0 if ($tagname eq 'ul' and defined $$attr{'id'} and lc $$attr{'id'} eq 'results') { }
0 0 elsif ($inside_list) { }
322 0 0 if ($tagname eq 'span') { }
0 0 elsif ($tagname eq 'a' and $$attr{'class'} eq 'link') { }
324 0 0 if (defined $class and $class =~ /^(?:album|artist|song title)$/i)
327 0 0 if not @ret or defined $ret[$#ret]{$current_class}
333 0 0 unless defined $href
334 0 0 unless substr($href, 0, length $service) eq $service
342 0 0 unless $inside_list and $current_class
349 0 0 unless $inside_list
351 0 0 if ($tagname eq 'ul') { }
0 0 elsif ($tagname eq 'span') { }
380 0 0 wantarray ? :
394 0 4 if ($_[1]) { }
1 3 elsif (not $ua) { }
402 0 1 if $@
415 0 4 $_[1] ? :
430 1 4 $_[1] ? :
443 3 0 if $response->is_success
444 0 0 if $response->is_error and $response->code != 500