| blib/lib/WWW/Amazon/Wishlist.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 41 | 80 | 51.2 |
| line | true | false | branch |
|---|---|---|---|
| 156 | 0 | 2 | $uk ? : |
| 164 | 0 | 3 | $uk ? : |
| 170 | 1 | 2 | if 1 < $iPage |
| 182 | 0 | 3 | if (9 < $test) |
| 196 | 0 | 3 | unless (defined $result) |
| 201 | 1 | 2 | unless (ref $result->{'items'}) |
| 213 | 0 | 42 | if $item->{'priority'} =~ m[Desired:\s*\s*(\d+)]i |
| 214 | 0 | 42 | if $item->{'priority'} =~ m[Priority:\s*\s*(\d)]i |
| 215 | 0 | 0 | if ($uk and $item->{'image'} and not $item->{'image'} =~ /^http:/) |
| 229 | 0 | 2 | unless (defined $sURLNext) |
| 234 | 0 | 0 | if ($content =~ /([;&]page=\d+)">\s*(<[^>]+>)?Next/) |
| 242 | 0 | 2 | unless (defined $sURLNext) |
| 247 | 1 | 1 | unless ($sURLNext =~ /[;&]page=(\d+)/) |
| 254 | 0 | 1 | if ($iNext <= $iPage) |
| 306 | 3 | 0 | if $response->is_success |
| 307 | 0 | 0 | if ($response->is_redirect) |
| 315 | 0 | 3 | unless ($response->is_success) |
| 341 | 0 | 3 | $iUK ? : |
| 351 | 0 | 48 | unless ref $oSPAN |
| 366 | 0 | 72 | unless ref $oA |
| 379 | 0 | 72 | unless $sTitle =~ /\S/ |
| 383 | 0 | 72 | if $sTitle eq 'Universal Wish List Button' |
| 384 | 12 | 60 | if $sTitle eq 'Buying this gift elsewhere?' |
| 387 | 42 | 18 | if ($sURL =~ m[/detail(?:/offer-listing)?/-/(.+?)/ref] or $sURL =~ m[/gp/product/(.+?)/ref] or $sURL =~ m[/dp/(.+?)/ref]) { } |
| 405 | 6 | 42 | if ($sASIN eq '') |
| 410 | 0 | 42 | $iUK ? : |
| 415 | 0 | 42 | unless (ref $oParent) |
| 436 | 0 | 0 | unless ref $oSPAN |
| 444 | 42 | 0 | unless ($iDesired and $sPriority) |
| 448 | 0 | 42 | if ($sParentHTML =~ / |
| 458 | 0 | 42 | if ($sParentHTML =~ //) { } |
| 474 | 0 | 42 | if ($sParentHTML =~ />added\s+(.+?) |
| 486 | 0 | 42 | if ($iUK) { } |
| 508 | 0 | 0 | unless ref $oTD |
| 512 | 0 | 0 | if ($s =~ s/\A\s*(by|~)\s+//) |
| 528 | 0 | 42 | if (not ref $oTDprice) { } |
| 538 | 0 | 42 | if ($sPrice =~ /Price:\s+(.+)\Z/) |
| 572 | 3 | 0 | if (ref $oA) { } |
| 587 | 9 | 33 | if ($s =~ /.+PRIORITY:?\s*(\w+?)(\s|\z)/i) |
| 597 | 0 | 42 | if ($s =~ /(?:DESIRED|WANTS):?\s*(\d+)/i) |