view release on metacpan or  search on metacpan

lib/Finance/Currency/Convert/Custom.pm  view on Meta::CPAN

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;
		}