| blib/lib/Finance/PremiumBonds.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 12 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 0 | unless my $holdernum = shift() |
| 26 | 0 | 0 | unless ($mech->success) |
| 33 | 0 | 0 | unless ($form) |
| 40 | 0 | 0 | unless ($mech->click('submit')) |
| 44 | 0 | 0 | if ($mech->content =~ /holder number must be 10 numbers/ism or $mech->content =~ /check your holder's number - it is not valid/ism) |
| 55 | 0 | 0 | $mech->content =~ /Sorry,? you haven't won/i ? : |