blib/lib/WWW/TinySong.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 7 | 47 | 14.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
81 | 0 | 0 | 2 | defined $_[0] and UNIVERSAL::isa($_[0], 'WWW::TinySong') |
107 | 0 | 0 | 0 | defined $_[0] and UNIVERSAL::isa($_[0], 'WWW::TinySong') |
315 | 0 | 0 | 0 | $tagname eq 'ul' and defined $$attr{'id'} |
0 | 0 | 0 | $tagname eq 'ul' and defined $$attr{'id'} and lc $$attr{'id'} eq 'results' | |
322 | 0 | 0 | 0 | $tagname eq 'a' and $$attr{'class'} eq 'link' |
324 | 0 | 0 | 0 | defined $class and $class =~ /^(?:album|artist|song title)$/i |
342 | 0 | 0 | 0 | $inside_list and $current_class |
444 | 0 | 0 | 0 | $response->is_error and $response->code != 500 |
line | l | !l | condition |
---|---|---|---|
212 | 0 | 3 | $param ||= {} |
370 | 0 | 0 | $$res{'album'} || '' |
0 | 0 | $$res{'artist'} || '' | |
0 | 0 | $$res{'song title'} || '' | |
0 | 0 | $$res{'tinysongLink'} || '' | |
415 | 3 | 1 | $service || 'http://tinysong.com/' |
430 | 3 | 1 | $retries || 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
327 | 0 | 0 | 0 | not @ret or defined $ret[$#ret]{$current_class} |
444 | 0 | 0 | 0 | $response->message || $response->status_line |
447 | 3 | 0 | 0 | $response->decoded_content || $response->content |