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   600 use strict;
  8         15  
  8         198  
3 8     8   38 use warnings;
  8         14  
  8         1251  
4              
5             our $VERSION = '0.1';
6             our $ERROR;
7             our @ATTRIBUTES = qw/message/; # just for those that inherit
8              
9             sub new {
10 0     0 0 0 my $class = shift;
11 0         0 my $self = [];
12 0         0 bless $self, $class;
13 0         0 return $self;
14             }
15              
16             sub Error {
17 3     3 0 890 my $self = shift;
18 3 100       7 if( ref $self ){
19 2         6 $self->[0] = shift;
20             }
21             else{
22 1         2 $ERROR = shift;
23             }
24 3         112 return undef;
25             }
26              
27             sub ErrStr {
28 2     2 0 8 my $self = shift;
29 2 100       9 return ref $self ? $self->[0] : $ERROR;
30             }
31              
32              
33             __END__