| blib/lib/WebService/ISBNDB/API.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 7 | 23 | 30.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 149 | 15 | 4 | 0 | $class eq 'WebService::ISBNDB::API' and @argz > 1 |
| 165 | 28 | 0 | 0 | $obj_defaults{$_} and not $$args{$_} |
| 213 | 0 | 0 | 0 | ref $$args{'agent'} and $$args{'agent'}->isa('WebService::ISBNDB::Agent') |
| 512 | 0 | 0 | 0 | ref $agent and $agent->isa('WebService::ISBNDB::Agent') |
| 826 | 0 | 0 | 0 | ref $agent and $agent->isa('LWP::UserAgent') |
| line | l | !l | condition |
|---|---|---|---|
| 150 | 11 | 8 | shift @argz || {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 231 | 0 | 14 | 0 | uc $$args{'protocol'} || $self->get_default_protocol |
| 826 | 1 | 0 | 0 | not defined $agent or ref $agent and $agent->isa('LWP::UserAgent') |