File Coverage

blib/lib/Finance/Bank/Wachovia/ErrorHandler.pm
Criterion Covered Total %
statement 13 17 76.4
branch 4 4 100.0
condition n/a
subroutine 4 5 80.0
pod 0 3 0.0
total 21 29 72.4


line stmt bran cond sub pod time code
1             package Finance::Bank::Wachovia::ErrorHandler;
2 8     8   897 use strict;
  8         16  
  8         352  
3 8     8   44 use warnings;
  8         18  
  8         1671  
4              
5             our $ERROR;
6             our @ATTRIBUTES = qw/message/; # just for those that inherit
7              
8             sub new {
9 0     0 0 0 my $class = shift;
10 0         0 my $self = [];
11 0         0 bless $self, $class;
12 0         0 return $self;
13             }
14              
15             sub Error {
16 2     2 0 966 my $self = shift;
17 2 100       6 if( ref $self ){
18 1         9 $self->[0] = shift;
19             }
20             else{
21 1         3 $ERROR = shift;
22             }
23 2         7 return undef;
24             }
25              
26             sub ErrStr {
27 2     2 0 10 my $self = shift;
28 2 100       15 return ref $self ? $self->[0] : $ERROR;
29             }
30              
31              
32             __END__