| line |
true |
false |
branch |
|
14
|
0 |
0 |
unless exists $opts{'customerid'} |
|
15
|
0 |
0 |
unless exists $opts{'memorable'} |
|
16
|
0 |
0 |
unless exists $opts{'phrase'} |
|
17
|
0 |
0 |
unless exists $opts{'pin'} |
|
18
|
0 |
0 |
unless $opts{'customerid'} =~ /^\d{8}$/ |
|
19
|
0 |
0 |
unless $opts{'pin'} =~ /^\d{5}$/ |
|
29
|
0 |
0 |
unless $agent->success |
|
32
|
0 |
0 |
if ($agent->form_name('frmChangePIN')) |
|
36
|
0 |
0 |
unless $agent->success |
|
41
|
0 |
0 |
unless my $stream = 'HTML::TokeParser'->new(\$content) |
|
47
|
0 |
0 |
unless lc $phrase eq lc $opts{'phrase'} |
|
52
|
0 |
0 |
unless $agent->success |
|
56
|
0 |
0 |
unless $stream = 'HTML::TokeParser'->new(\$content) |
|
58
|
0 |
0 |
if ($$token[1]{'id'} and $$token[1]{'id'} eq 'error') |
|
73
|
0 |
0 |
unless $stream = 'HTML::TokeParser'->new(\$content) |
|
95
|
0 |
0 |
if $overdraft eq 'n/a' |