Branch Coverage

blib/lib/Finance/Bank/Wachovia/Account.pm
Criterion Covered Total %
branch 19 32 59.3


line true false branch
35 0 4 unless $self->number
46 0 25 unless grep /$attr/, @attrs
49 17 8 unless @_
58 0 147 unless $t->isa("Finance::Bank::Wachovia::Transaction")
67 1 1 unless (ref $transactions eq "ARRAY")
72 0 3 unless $t->isa("Finance::Bank::Wachovia::Transaction")
86 0 0 if (@_)
87 0 0 if $$self[_posted_balance()]
96 4 2 if $$self[_transactions()]
101 0 146 unless my $t = "Finance::Bank::Wachovia::Transaction"->new(%$_)
110 0 2 if (@_)
111 0 2 if $$self[_name()]
118 1 2 if (@_)
119 1 1 if $$self[_type()]
126 0 1 if (@_)
127 0 1 if $$self[_available_balance()]