| line |
true |
false |
branch |
|
59
|
0 |
3 |
$@ ? : |
|
125
|
2 |
0 |
if ($WebService::ISBNDB::API::Books::CAN_PARSE_DATES) |
|
127
|
0 |
2 |
if $$args{'change_time'} and not $$args{'change_time_sec'} |
|
129
|
0 |
2 |
if $$args{'price_time'} and not $$args{'price_time_sec'} |
|
160
|
1 |
0 |
unless (ref $args) |
|
163
|
1 |
0 |
if (ref($obj = 'Business::ISBN'->new($args)) and $obj->is_valid_checksum eq 1) { } |
|
213
|
0 |
1 |
if $key eq 'api_key' |
|
221
|
0 |
1 |
if ($key eq 'author') |
|
223
|
0 |
0 |
if (ref $value) { } |
|
225
|
0 |
0 |
if ($value->isa('WebService::ISBNDB::API::Authors')) { } |
|
248
|
0 |
1 |
if ($key eq 'publisher') |
|
250
|
0 |
0 |
if (ref $value) { } |
|
252
|
0 |
0 |
if ($value->isa('WebService::ISBNDB::API::Publishers')) { } |
|
275
|
0 |
1 |
if ($key eq 'subject') |
|
277
|
0 |
0 |
if (ref $value) { } |
|
279
|
0 |
0 |
if ($value->isa('WebService::ISBNDB::API::Subjects')) { } |
|
302
|
1 |
0 |
if ($key =~ /^(:?dewey_decimal|lcc_number|full|combined|title|isbn|book_id)$/) |
|
365
|
0 |
0 |
unless 'Business::ISBN'->new($isbn)->is_valid_checksum eq 1 |
|
398
|
0 |
0 |
unless (ref $publisher) |
|
433
|
0 |
0 |
unless ref $list eq 'ARRAY' |
|
467
|
0 |
0 |
if (grep((!ref($_)), @$authors)) |
|
476
|
0 |
0 |
unless (ref($auth_id = $$authors[$_])) |
|
478
|
0 |
0 |
unless ref($$authors[$_] = $class->find({'id', $auth_id})) |
|
512
|
0 |
0 |
unless ref $list eq 'ARRAY' |
|
546
|
0 |
0 |
if (grep((!ref($_)), @$subjects)) |
|
555
|
0 |
0 |
unless (ref($subj_id = $$subjects[$_])) |
|
557
|
0 |
0 |
unless ref($$subjects[$_] = $class->find({'id', $subj_id})) |
|
592
|
0 |
0 |
if $WebService::ISBNDB::API::Books::CAN_PARSE_DATES |
|
653
|
0 |
0 |
if $WebService::ISBNDB::API::Books::CAN_PARSE_DATES |
|
712
|
0 |
0 |
unless ref $prices eq 'ARRAY' |
|
714
|
0 |
0 |
if grep((ref $_ ne 'HASH'), @$prices) |
|
744
|
0 |
0 |
unless ref $marc eq 'ARRAY' |
|
746
|
0 |
0 |
if grep((ref $_ ne 'HASH'), @$marc) |
|
799
|
0 |
0 |
unless ref $self eq ref $target |
|
829
|
0 |
0 |
if ref $authors{$id2} |
|
830
|
0 |
0 |
if ref $subjects{$id2} |
|
831
|
0 |
0 |
if ref $prices{$id2} |
|
832
|
0 |
0 |
if ref $marc{$id2} |