Skip Menu |
 

This queue is for tickets about the Finance-Quote CPAN distribution.

Report information
The Basics
Id: 123883
Status: new
Priority: 0/
Queue: Finance-Quote

People
Owner: Nobody in particular
Requestors: andy.newby [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Fails to get currency conversion
Date: Fri, 15 Dec 2017 08:49:25 +0000
To: bug-Finance-Quote [...] rt.cpan.org
From: Andy Newby <andy.newby [...] gmail.com>
Download (untitled) / with headers
text/plain 1.2k
Hi, Recently I found that my conversions stopped working: sub get_price { # only need these here use Locale::Currency; use File::Basename; use Cache::FileCache; use Finance::Quote; my ($currency_from,$currency_to,$amount) = @_; my ($filename) = fileparse($0, '.pl'); my $cache = Cache::FileCache->new({ cache_root => "/srv/www/ steampunkjunkies.net/www/cgi-bin/admin/tmp_cache/.$filename", default_expires_in => '1 hour', }); my $quote = Finance::Quote->new(); my $ratio = $cache->get("$currency_from:$currency_to"); $ratio = $quote->currency($currency_from, $currency_to) unless defined $ratio; die "sorry, cannot convert from $currency_from to $currency_to\n" unless defined $ratio; $cache->set("$currency_from:$currency_to", $ratio); return $amount * $ratio } I get: sorry, cannot convert from USD to GBP It used to work fine - so not sure what has changed. Even this basic example doesn't work: use Finance::Quote; my $q = Finance::Quote->new; my $conversion_rate = $q->currency("AUD","USD"); print "FOO: $conversion_rate \n"; $conversion_rate is empty. Any ideas? Cheers Andy Newby *Email:* andy@ultranerds.co.uk *WWW: *http://www.ultranerds.co.uk *Mobile: * 07769 201 576


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.