| line |
true |
false |
branch |
|
92
|
0 |
3 |
if not $ean or length $isbn == 13 and $isbn ne $ean or length $isbn == 10 and $isbn ne $self->convert_to_isbn10($ean) |
|
102
|
0 |
0 |
if $@ or not $mech->success or not $mech->content |
|
114
|
0 |
0 |
if $url eq 'https://www.waterstones.com' or $url eq 'https://www.waterstones.com' . "/books/search/term/$ean" |
|
118
|
0 |
0 |
if $@ or not $mech->success or not $mech->content |
|
124
|
0 |
0 |
if $html =~ m[Sorry! We did not find any results for]is |
|
127
|
0 |
0 |
if $html =~ /Exception was UseCaseError: \d+/is |
|
146
|
0 |
0 |
unless defined $data |
|
150
|
0 |
0 |
if $$data{$_} |
|
154
|
0 |
0 |
if $$data{'title'} |
|
155
|
0 |
0 |
if $$data{'description'} |
|
157
|
0 |
0 |
if ($$data{'image'}) |
|
168
|
0 |
0 |
unless defined $$data{$_} |