| line |
true |
false |
branch |
|
108
|
0 |
20 |
if $argz{'protocol'} |
|
109
|
0 |
20 |
if $argz{'api_key'} |
|
110
|
0 |
20 |
if $argz{'agent'} |
|
111
|
0 |
20 |
if $argz{'agent_args'} |
|
140
|
0 |
19 |
if (ref $class) |
|
149
|
0 |
19 |
if $class eq 'WebService::ISBNDB::API' and @argz > 1 |
|
152
|
0 |
19 |
if ($type) |
|
154
|
0 |
0 |
unless $type = $class->class_for_type($type) |
|
161
|
14 |
5 |
if (ref $args) |
|
165
|
0 |
28 |
if $obj_defaults{$_} and not $$args{$_} |
|
172
|
14 |
5 |
if (ref $args) { } |
|
174
|
0 |
14 |
$type ? : |
|
178
|
0 |
5 |
$type ? : |
|
210
|
0 |
14 |
if ($$args{'agent'}) |
|
213
|
0 |
0 |
unless ref $$args{'agent'} and $$args{'agent'}->isa('WebService::ISBNDB::Agent') |
|
218
|
0 |
0 |
if ($$args{'protocol'}) { } |
|
220
|
0 |
0 |
unless $$args{'agent'}->protocol($$args{'protocol'}) |
|
234
|
13 |
1 |
unless $$args{'api_key'} |
|
235
|
14 |
0 |
unless $$args{'agent_args'} |
|
264
|
6 |
0 |
if (ref $class) { } |
|
303
|
0 |
1 |
unless $pack |
|
334
|
1 |
1 |
if grep(($_ eq $type), ('Authors', 'Books', 'Categories', 'Publishers', 'Subjects')) |
|
387
|
7 |
0 |
ref $self ? : |
|
410
|
6 |
2 |
ref $self ? : |
|
443
|
0 |
0 |
if $agent |
|
470
|
6 |
1 |
$id ? : |
|
472
|
6 |
1 |
unless ($agent) |
|
475
|
6 |
0 |
if $id |
|
476
|
0 |
6 |
unless $agent_args |
|
478
|
6 |
0 |
if $id |
|
479
|
0 |
6 |
unless $protocol |
|
484
|
1 |
0 |
if $id |
|
512
|
0 |
0 |
unless ref $agent and $agent->isa('WebService::ISBNDB::Agent') |
|
514
|
0 |
0 |
unless $agent->protocol($self->get_protocol) |
|
573
|
0 |
5 |
if ($self->get_type eq 'API') |
|
576
|
0 |
0 |
unless $type = $self->class_for_type($type) |
|
636
|
0 |
0 |
if ($self->get_type eq 'API') |
|
639
|
0 |
0 |
unless $type = $self->class_for_type($type) |
|
794
|
2 |
1 |
unless ($DEFAULTS{'agent'}) |
|
826
|
0 |
0 |
unless not defined $agent or ref $agent and $agent->isa('LWP::UserAgent') |
|
875
|
0 |
1 |
unless ref $agent_args eq 'HASH' |
|
905
|
0 |
0 |
unless ref $self eq ref $target |