File Coverage

blib/lib/Finance/Bank/Wachovia/Credit.pm

Criterion	Covered	Total	%
statement	71	79	89.8
branch	17	26	65.3
condition			n/a
subroutine	20	21	95.2
pod	5	7	71.4
total	113	133	84.9

package Finance::Bank::Wachovia::Credit;
use Finance::Bank::Wachovia::ErrorHandler;
use strict;
use warnings;

our $VERSION = '0.3';
my @attrs;
our @ISA = qw/Finance::Bank::Wachovia::ErrorHandler/;

BEGIN{
	@attrs = qw(
		name
		number
		type
		current_balance
		available_credit
		limit
		data_obtainer
	);

	my $x = @__SUPER__::ATTRIBUTES;
	for( @attrs ){
		eval "sub _$_ { $x }";
		$x++;
	}
}

sub new {
	my($class, %attrs) = @_;
	my $self = [];
	bless $self, $class;
	foreach my $att ( keys %attrs ){
		$self->$att( $attrs{$att} );
	}
	return Finance::Bank::Wachovia::Credit->Error("no account number set in Finance::Bank::Wachovia::Credit->new")
		unless $self->number;
	return $self;
}

sub AUTOLOAD {
	no strict 'refs';
	our $AUTOLOAD;
	my $self = shift;
	my $attr = lc $AUTOLOAD;
	$attr =~ s/.*:://;
	return $self->Error( "$attr not a valid attribute" )
		unless grep /$attr/, @attrs;
	# get if no args passed
	return $self->[ &{"_$attr"} ] unless @_;
	# set if args passed
	$self->[ &{"_$attr"} ] = shift;
	return $self;
}


sub balance { current_balance(@_) }

# these values are loaded on-demand
sub limit {
	my $self = shift;
	if(@_){ $self->[ _limit ] = shift; return $self; }
	return $self->[ _limit ] if $self->[ _limit ];
	my $do = $self->data_obtainer();
	my $limit = $do->get_credit_account_limit( $self->number() );
	$self->[ _limit ] = $limit;
	return $limit;
}


sub name {
	my $self = shift;
	if(@_){ $self->[ _name ] = shift; return $self; }
	return $self->[ _name ] if $self->[ _name ];
	$self->[ _name ] = $self->data_obtainer->get_account_name( $self->number );
	return $self->[ _name ];
}

sub type {
	my $self = shift;
	if(@_){ $self->[ _type ] = shift; return $self; }
	return $self->[ _type ] if $self->[ _type ];
	$self->[ _type ] = $self->data_obtainer->get_account_type( $self->number );
	return $self->[ _type ];
}

sub current_balance {
	my $self = shift;
	if(@_){ $self->[ _current_balance ] = shift; return $self; }
	return $self->[ _current_balance ] if $self->[ _current_balance ];
	$self->[ _current_balance ] = $self->data_obtainer->get_credit_account_current_balance( $self->number );
	return $self->[ _current_balance ];
}


sub available_credit {
	my $self = shift;
	if(@_){ $self->[ _available_credit ] = shift; return $self; }
	return $self->[ _available_credit ] if $self->[ _available_credit ];
	$self->[ _available_credit ] = $self->data_obtainer->get_credit_account_available_credit( $self->number );
	return $self->[ _available_credit ];
}

sub DESTROY {}

__END__