File Coverage

blib/lib/Finance/Bank/Wachovia/DataObtainer/WWW/Parser.pm

Criterion	Covered	Total	%
statement	59	59	100.0
branch	5	6	83.3
condition			n/a
subroutine	11	11	100.0
pod	0	9	0.0
total	75	85	88.2

package Finance::Bank::Wachovia::DataObtainer::WWW::Parser;
use strict;
use warnings;

our $VERSION = '0.2';

sub get_credit_account_current_balance {
	get_account_available_balance( @_ );
}

sub get_credit_account_available_credit {
	$_[-1] =~ /Available Credit/g;
	my($avail) = $_[-1] =~ /\G.*?\$([\d,.-]+)/s;
	$avail =~ s/,//g;
	return $avail;
}

sub get_credit_account_limit {
	$_[-1] =~ /Credit Limit/g;
	my($limit) = $_[-1] =~ /\G.*?\$([\d,.-]+)/s;
	$limit =~ s/,//g;
	return $limit;
}

sub get_account_numbers {
	my $content = $_[-1];
	my @nums;
	while( $content =~ m//g ){
		my($num) = $content =~ /\G.*?HREF="javascript\:sendForm\('(\d+)','Account(?:Detail|Summary)'\)">.*?<\/A>/s;
		push @nums, $num;
	}
	return @nums;
}

sub get_account_available_balance {
	my $account_num = $_[-1];
	my $content = $_[-2];
	while($content =~ m//g){
		my($num) = $content =~ /\G.*?HREF="javascript\:sendForm\('(\d+)','Account(?:Detail|Summary)'\)">.*?<\/A>/s;
		my $bal;
		($bal) = $content =~ /\G.*?\$(\-?[\d,.-]+)/s;
		$bal =~ s/,//g;
		if( $num eq $account_num ){
			return $bal;
		}
	}
}

sub get_account_posted_balance {
	my $content = $_[-1];
	my $bal;
	($bal) = $content =~ m|Posted Balance:    \$([\d,.-]+)|g;
	$bal =~ s/,//g;
	return $bal;
}

sub get_account_name {
	my $account_num = $_[-1];
	my $content = $_[-2];
	while($content =~ m//g){
		my($num,$name) = $content =~ /\G.*?HREF="javascript\:sendForm\('(\d+)','Account(?:Detail|Summary)'\)">(.*?)<\/A>/s;
		my $bal;
		($bal) = $content =~ /\G.*?\$(\-?[\d,.-]+)/s;
		$bal =~ s/,//g;
		if( $num eq $account_num ){
			return lc $name;
		}
	}
}

sub get_account_type {
	my $content = $_[-1];
	my $type;
	($type) = $content =~ m/(.+?)/g;
	return lc $type;
}

sub get_account_transactions {
	my $content = $_[-1];
	my @all_trans;
	while( $content =~ m/^var tblRow\d+ = new Array (.+?);$/mg ){
		my %trans;
		@trans{
			qw(
				date
				action
				description
				withdrawal_amount
				deposit_amount
				balance
				seq_no
				trans_code
				check_num
			)
		} = eval $1;
		# this loop just gets rid of some dollar signs and commas that we don't need
		for(qw/withdrawal_amount deposit_amount balance/){
			next unless $trans{$_};
			$trans{$_} =~ s/\$|,//g;
			$trans{$_} =~ s/ //g;
		}
		push @all_trans, \%trans;
	}
	return \@all_trans;
}

1;