Branch Coverage

blib/lib/Finance/Bank/Wachovia.pm
Criterion Covered Total %
branch 13 18 72.2


line true false branch
40 0 2 unless ($self->user_id and $self->password or $self->customer_access_number and $self->pin and $self->code_word)
43 2 2 $self->user_id && $self->password ? :
61 0 82 unless grep /$attr/, @attrs
64 64 18 unless @_
90 1 4 if (exists $self->accounts->{$account_number})
93 0 4 unless $account_number =~ /^\d+$/
100 1 3 if ($account_number =~ /\d{16}/) { }
101 0 1 unless $account = "Finance::Bank::Wachovia::Credit"->new("number", $account_number, "data_obtainer", $do)
109 0 3 unless $account = "Finance::Bank::Wachovia::Account"->new("number", $account_number, "data_obtainer", $do)