| line |
true |
false |
branch |
|
19
|
0 |
6 |
ref $_[0] eq 'HASH' ? : |
|
46
|
3 |
2 |
if (defined $$self{'user'}{'password'}) { } |
|
49
|
1 |
1 |
if grep {not $_;} @{$$self{'api'};}{'key', 'secret'}, $$self{'auth'}{'session'} |
|
69
|
0 |
0 |
unless ref $r eq 'HTTP::Request' |
|
72
|
0 |
0 |
if $m eq 'handshake' |
|
85
|
0 |
0 |
if ($$data{'status'} and $$data{'url'} and $$data{'sid'}) |
|
99
|
0 |
1 |
$$self{'auth'}{'type'} eq 'web' ? : |
|
101
|
0 |
1 |
$$self{'auth'}{'type'} eq 'web' ? : |
|
119
|
0 |
4 |
ref $_[0] eq 'HASH' ? : |
|
121
|
1 |
3 |
unless $$self{'hs'}{'url'}{'np'} |
|
122
|
1 |
2 |
unless $$self{'hs'}{'sid'} |
|
123
|
1 |
1 |
if grep {not $$param{$_};} 'artist', 'title' |
|
145
|
0 |
3 |
ref $_[0] eq 'HASH' ? : |
|
147
|
1 |
2 |
unless $$self{'hs'}{'url'}{'sm'} |
|
148
|
0 |
2 |
unless $$self{'hs'}{'sid'} |
|
153
|
1 |
1 |
if $$_{'title'} |
|
160
|
1 |
1 |
unless @$list |
|
163
|
0 |
1 |
defined $i ? : |
|
193
|
2 |
2 |
unless $r and ref $r eq 'HTTP::Response' |
|
197
|
1 |
0 |
$$_[1] ? : |
|
199
|
1 |
0 |
$2 ? : |
|
|
1 |
1 |
$r->is_success && $r->content =~ /^ (OK) ( \n (\w+) \n (\S+) \n (\S+) )? /sx ? : |
|
217
|
5 |
0 |
unless &Encode::is_utf8($data) |