| line |
true |
false |
branch |
|
116
|
0 |
2 |
unless $ean |
|
124
|
0 |
2 |
if $@ or not $mech->success or not $mech->content |
|
129
|
0 |
2 |
if $json eq 'bookdata({});' |
|
139
|
0 |
2 |
unless $$code{'ISBN:' . $ean} or $$code{'ISBN:' . $isbn} |
|
145
|
0 |
2 |
unless $$data{'url'} |
|
149
|
0 |
2 |
if $@ or not $mech->success or not $mech->content |
|
159
|
0 |
2 |
if $html =~ /Sorry, we couldn't find any matches for/is |
|
170
|
0 |
2 |
if $$data{'url'} =~ m[^http://[.\w]+\.google\.(de|ch|at)\b] |
|
171
|
0 |
2 |
if $$data{'url'} =~ m[^http://[.\w]+\.google\.co\.il\b] |
|
172
|
0 |
2 |
if $LANG{$ccTLD} |
|
174
|
0 |
2 |
if $lang =~ /xx/ |
|
181
|
0 |
2 |
unless defined $$data{$_} |
|
186
|
0 |
22 |
unless defined $$data{$_} |
|
189
|
0 |
2 |
if ($$data{'image'} =~ m[^/]) |
|
242
|
0 |
2 |
ref $LANG{$lang}{'Publisher'} eq 'ARRAY' ? : |
|
245
|
2 |
0 |
if $publisher |
|
247
|
2 |
0 |
if ($publisher) |
|
254
|
0 |
2 |
ref $LANG{$lang}{'Length'} eq 'ARRAY' ? : |
|
255
|
0 |
2 |
ref $LANG{$lang}{'Pages'} eq 'ARRAY' ? : |
|
259
|
2 |
0 |
if $$data{'pages'} |
|
261
|
0 |
0 |
if $$data{'pages'} |
|
263
|
2 |
0 |
if $$data{'pages'} |
|
270
|
2 |
2 |
if length $value == 13 |
|
271
|
2 |
2 |
if length $value == 10 |
|
280
|
0 |
2 |
unless $$data{'image'} |
|
282
|
0 |
2 |
unless $$data{'author'} |
|
284
|
0 |
2 |
unless $$data{'title'} |