Branch Coverage

blib/lib/Finance/Bank/PNC.pm
Criterion Covered Total %
branch 0 16 0.0


line true false branch
11 0 0 unless exists $opts{'userId'}
12 0 0 unless exists $opts{'password'}
19 0 0 unless $mech->post('https://www.onlinebanking.pnc.com/alservlet/ValidateUserIdServlet', {'hiddenAcctLetter', 'p', 'origin', 'p', 'userId', $opts{'userId'}})
25 0 0 unless my $stream = 'HTML::TokeParser'->new(\$mech->content)
34 0 0 unless $mech->post('https://www.onlinebanking.pnc.com/alservlet/SigninChallengeServlet', {'counter', 0, 'challengeErrorCounter', 0, 'bindDevice', 'no', 'answer', $answer})
44 0 0 unless $mech->post('https://www.onlinebanking.pnc.com/alservlet/VerifyPasswordServlet', {'counter', 0, 'passwordErrorCounter', 0, 'oldUserId', 12345, 'password', $opts{'password'}})
55 0 0 unless $stream = 'HTML::TokeParser'->new(\$mech->content)
60 0 0 if $$token[1]{'class'} and $$token[1]{'class'} eq 'col213'