| line |
true |
false |
branch |
|
97
|
0 |
4 |
if not $ean or length $isbn == 13 and $isbn ne $ean or length $isbn == 10 and $isbn ne $self->convert_to_isbn10($ean) |
|
107
|
2 |
2 |
if $@ or not $mech->success or not $mech->content |
|
112
|
1 |
1 |
unless $link |
|
116
|
0 |
1 |
if $@ or not $mech->success or not $mech->content |
|
146
|
1 |
0 |
if $data->{'title'} and $data->{'author'} |
|
165
|
1 |
10 |
if $desc |
|
168
|
1 |
10 |
if $data->{'description'} |
|
172
|
2 |
1 |
unless $data->{$key} |
|
179
|
1 |
2 |
if $data->{'weight'} and $weight eq 'ounces' |
|
180
|
0 |
3 |
if $data->{'weight'} and $weight eq 'pounds' |
|
184
|
3 |
0 |
unless @size |
|
185
|
1 |
2 |
if (@size) |
|
188
|
0 |
1 |
if ($type eq 'cm') { } |
|
|
1 |
0 |
elsif ($type eq 'inches') { } |
|
197
|
1 |
2 |
if ($json) { } |
|
200
|
1 |
0 |
if @order |
|
201
|
1 |
0 |
if @order |
|
207
|
1 |
2 |
if $data->{'published'} |
|
208
|
1 |
2 |
if $data->{'isbn10'} |
|
209
|
1 |
2 |
if $data->{'isbn13'} |
|
213
|
2 |
1 |
unless defined $data->{'isbn13'} |
|
216
|
0 |
17 |
unless defined $data->{$_} |