line |
true |
false |
branch |
98
|
0 |
4 |
if $@ or not $mech->success or not $mech->content |
105
|
1 |
3 |
unless $$code{'ISBN:' . $isbn} |
111
|
0 |
3 |
unless $isbn eq $$data{'isbn13'} or $isbn eq $$data{'isbn10'} |
129
|
1 |
2 |
if ($$data{'weight'} and $$data{'weight'} =~ /([\d.]+)\s*(?:lbs|pounds)/) { } |
|
1 |
1 |
elsif ($$data{'weight'} and $$data{'weight'} =~ /([\d.]+)\s*(?:ozs|ounces)/) { } |
|
0 |
1 |
elsif ($$data{'weight'} and $$data{'weight'} =~ /([\d.]+)\s*(?:g|grams)/) { } |
140
|
0 |
0 |
if $@ or not $mech->success or not $mech->content |
152
|
0 |
0 |
if $$data{'height'} |
153
|
0 |
0 |
if $$data{'width'} |
154
|
0 |
0 |
if $$data{'depth'} |
159
|
0 |
0 |
unless defined $data |
163
|
0 |
0 |
unless defined $$data{$_} |