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'} |