File Coverage

blib/lib/Finance/Currency/Convert/Custom.pm

Criterion	Covered	Total	%
statement	29	48	60.4
branch	2	8	25.0
condition			n/a
subroutine	6	8	75.0
pod	0	3	0.0
total	37	67	55.2

package Finance::Currency::Convert::Custom;

use strict;

use base qw(Finance::Currency::Convert);
use LWP::UserAgent;
our $VERSION = '1.00';


sub updateRates() {
	my $self = shift;
	my $sub_ref = shift;

	my @CurrencyList = @_;

	unless(ref $sub_ref eq 'CODE'){
		#case of not defined own sub and sent countries list as params :)
		unless(ref $sub_ref){
			push @CurrencyList, $sub_ref;
		}
		$sub_ref = sub{my ($cur_from, $cur_to) = @_; return $self->currency_finyahoo($cur_from, $cur_to);}
	}


	foreach my $source (@CurrencyList) {
		foreach my $target (sort keys %{ $self->{CurrencyRates}}) {
			$self->setRate($source, $target, &{$sub_ref}($source, $target));
		}
	}
	foreach my $source (sort keys %{ $self->{CurrencyRates}}) {
		foreach my $target (@CurrencyList) {
			$self->setRate($source, $target, &{$sub_ref}($source, $target));
		}
	}
}

sub updateRate() {
	my $self = shift;
	my $sub_ref = shift;
	my $source = shift;
	my $target = shift;
	unless(ref $sub_ref eq 'CODE'){
			#case of not defined own sub and sent countries list as params :)
			unless(ref $sub_ref){
				$target = $source;
				$source = $sub_ref;
			}
			$sub_ref = sub{my ($cur_from, $cur_to) = @_; return $self->currency_finyahoo($cur_from, $cur_to);}
	}

	$self->setRate($source, $target, &{$sub_ref}($source, $target));
}







sub currency_finyahoo() {

	my $self = shift;
	#$self->{UserAgent}
	my ($cur_from, $cur_to) = @_;
	my $browser = LWP::UserAgent->new;
	my $response = $browser->get( "http://finance.yahoo.com/d/quotes.csv?e=.csv&f=sl1d1t1&s=".$cur_from.$cur_to."=X" );
	my $data = $response->content();
	my @arr = split /,/,$data;
	return $arr[1];
}




1;

__END__