| blib/lib/Net/LastFM/Submission.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 21 | 40 | 52.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 85 | 0 | 0 | 0 | $$data{'status'} and $$data{'url'} |
| 0 | 0 | 0 | $$data{'status'} and $$data{'url'} and $$data{'sid'} | |
| 193 | 1 | 1 | 2 | $r and ref $r eq 'HTTP::Response' |
| 199 | 1 | 0 | 1 | $r->is_success && $r->content =~ /^ (OK) ( \n (\w+) \n (\S+) \n (\S+) )? /sx |
| line | l | !l | condition |
|---|---|---|---|
| 12 | 0 | 3 | $ENV{'SUBMISSION_DEBUG'} || 0 |
| 21 | 1 | 5 | $$param{'client_id'} || 'tst' |
| 1 | 5 | $$param{'client_ver'} || '1.0' | |
| 2 | 3 | $$param{'enc'} || 'cp1251' | |
| 168 | 0 | 1 | $$_{'source'} || 'R' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 21 | 5 | 1 | 0 | $$param{'user'} || croak('Need user name') |
| 1 | 4 | 0 | $$param{'ua'} || 'LWP::UserAgent'->new('timeout', 10, 'agent', join('/', 'Net::LastFM::Submission', $VERSION)) | |
| 59 | 0 | 4 | 0 | ref $class || $class |
| 125 | 0 | 1 | 0 | $$param{'enc'} || $$self{'enc'} |
| 151 | 0 | 1 | 0 | $$_{'enc'} || $$self{'enc'} |
| 168 | 1 | 0 | 0 | $$_{'time'} || time |