After the release 1.13 we took two important
decisions :
Current evolution of
development tools made us port the repository to Git
Since Finance::Quote releases are available
through CPAN we also
decided to make full use of the tools available on the
Cpan platform.
Please note that we are in the early stages of
the implementation of these changes. Some of the work has
already been done, but some data has still to be ported or
disgarded. Please take a look at this page for further
evolution. Reports will also be posted to the developers
mailing-list. We sincerely apologize for any inconvenience
these changes may cause.
Bug-tracking
Bugs can be submitted and tracked via Cpan's RT
bug-tracking system. Before submitting a bug, please
make sure that someone else has not submitted the bug
already.
Bugs posted on the Sourceforge's
bug tracking system
after 1.7.2007 are ported to RT. Older bug reports (prior
to release 1.13) will certainly be disgarded. Don't use the
Sourceforge's BTS for new bug reports as those won't be checked.
Patches
Patches must be submitted as file attachments to bug
reports (see above).
Patches submitted on Sourceforge's site after 1.7.2007 will
eventually be lookad at. Older patches will certainly be disgarded.
For reference, we'll mention the link to the SourceForge's
patch manager. Don't use it for new patches as those won't
be checked.
Before submitting a patch please make
sure that you have the most up-to-date version of
Finance::Quote, and that nobody has submitted an equivalent
patch already.
Mailing-lists
A developer's mailing list exists for those people who are
using or developing Finance::Quote. For more information,
see our Discussion Groups and
Mailing Lists page.
Git
Anonymous access to the development branch is available
for those wishing to use the development branch of Finance::Quote.
Details on anonymous Git access can be found
here.
CVS
The development repository has been ported to Git.
Please note that while CVS is still available, updates
starting at version 1.13 won't be sent to the CVS repository.
Details on anonymous CVS access can be found
here.
Hacker's Guide
The Hacker's Guide contains information on how to extend
Finance::Quote to make use of your own custom information
sources. The most recent version of the Hacker's Guide
can be found here.
Those people who want to
play with the development branch of Finance::Quote can should consult
the directions regarding anonymous CVS access here.
Alternatively, you can download
a nightly tarball of the CVS tree.
Finance::Quote is a perl
module which can be used to obtain information from a variety of
sources, including markets in Australia, USA, Canada, Europe, and a
number of managed funds.
The latest version of
Finance::Quote is (soon to be) available via CPAN, and is currently available on
our download
page.
News
2021-Jul-04
Release 1.51 is available from CPAN and Souceforge. Bugs in test files removed.
2021-Jun-26
Release 1.50 is available from CPAN and Souceforge. Deprecated modules removed, some modules updated and fixed.
2019-Jun-30
Release 1.49 is available from CPAN. Lots of bugfixes and code enhancements.
2017-Nov-05
Releases 1.39 and 1.40 are available both from CPAN and Sourceforge. These
releases adds the module AlphaVantage to circumvent the shutdown
of yahoo API.
2015-Aug-22
Release 1.38 is available both from CPAN and Sourceforge. This
release encloses several website module updates.
2015-Feb-02
Release 1.37 is available both from CPAN and Sourceforge. This
removes some dependencies to obtain better compatibility.
2014-Feb-17
Release 1.20 is available both from CPAN and Sourceforge. This
autoinstalls Date::Calc if needed.
2014-Feb-16
Release 1.19 is available both from CPAN and Sourceforge. It
solves Yahoo quote retrieval changes and adds 2 new modules.
2012-Sep-30
Release 1.18 is available both from CPAN and Sourveforge. It
solves most used module errors.
2009-Oct-5
Release 1.17 is available both from CPAN and Sourceforge.
2009-Apr-13 Release 1.16 is available both from CPAN
and Sourceforge. Thanks to Bradley Dean a currency_lookup function is
available. As usual, some modules were patched due to site
modifications.
2008-Oct-26
Release 1.15 is available both from CPAN and Sourceforge. It
is a bugfix release. Upgrade is strongly recommended.
2008-Oct-15
Release 1.14 considered as the latest stable release has been
uploaded to CPAN and Sourceforge.
2008-Sep-21
The development of Finance::Quote is undergoing a
lifting. More information is available on
the developer page
2006-Jul-10
Finance::Quote 1.12 has been released. The new version includes
support for new information sources, including Bourso and LeRevenu in
France, and the Helsinki stock exchange in Finland. This release also
fixes the problem with retrieving quotes with the DWS and VWD modules.
The full set of release notes are available
here. You can download this release from our download page.
2006-Jan-11
Finance::Quote 1.11 has been released. The new version includes support
for new information sources, including Sharenet (South Africa) and U.S.
Federal Bonds. This release also fixes the problem with retrieving
currency quotes from Yahoo Finance. The full set of release notes
are available
here. You can download this
release from our
download page.
2005-Jul-04
Finance::Quote 1.10 has been released. The new version includes support
for new information sources, including the New Zealand stock exchange,
TD Waterhouse Canada
Efunds, the Swedish Bank, the U.S. Govt. Thrift
Savings Plan, and several Yahoo sources. The full set of release notes
are available
here. You can download this
release from our
download page.
2005-Jun-30
Finance::Quote 1.09 has been released. The new version includes support
for new information sources, including the New Zealand stock exchange,
TD Waterhouse Canada
Efunds, the Swedish Bank, the U.S. Govt. Thrift
Savings Plan, and several Yahoo sources. The full set of release notes
are available
here. You can download this
release from our
download page.
2003-Jul-04
Finance::Quote 1.08 was released.
2002-Apr-18
Finance::Quote 1.07 was released.
2001-Jun-26
Finance::Quote 1.06 has been released. The new version includes support
for many new information sources, including Dutch stocks and indexes,
UK unit trusts, managed funds from TD waterhouse, and quote lookups
from fool.com.
The full set of release notes are available
here. You can download this
release from our download
page.
2001-Feb-23
Finance::Quote 1.05 has been released. This version fixes some bugs
that people have been experiencing with currency conversion, and also
provides easier methods for users to load their custom modules at
run-time. The new release is available from our download
page.
2000-Nov-05
Finance::Quote 1.04 has been released. This version fixes a bug whereby
the 40th symbol of a large Yahoo lookup would fail. It also removes
some of the headaches people have been experiencing with the test
suite. For the adventurous, support for proxy authentication has also
been added. See the FAQ
for more details.
2000-Oct-30
An article on Finance::Quote was featured in The Perl Journal,
issue number 19. The article is a good introduction to the module and
well worth reading if you are beginning to work with Finance::Quote.
The draft is available from our documentation
page.
Manual pages, the hacker's guide, and other documentation for
Finance::Quote is available through SourceForge's documentation
manager. It can be found here.
The Perl Journal
The Perl Journal published an
article about Finance::Quote in issue number 19. The final draft
of this article is also available via this website. It comes in
three parts (text-only):
There are two
Finance::Quote mailing lists.
finance-quote-devel
is a high-volume list for developers and technical issues.
finance-quote-news is a
low-volume list for announcements only. Archives of the mailing lists,
and details on how to join, can be found
here.
Discussion
Forums.
Public discussion forums,
including a general discussion and help forum, can be found here.
Finance-Quote-1.51/Examples/ 0000775 0001750 0001750 00000000000 14070425453 015510 5 ustar bschuck bschuck Finance-Quote-1.51/Examples/currency-lookup.pl 0000755 0001750 0001750 00000000763 14070425453 021215 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use lib '../lib';
use Finance::Quote;
# This script demonstrates how currencies can be converted using
# Finance::Quote.
# Example usage: currency-lookup.pl USD AUD
# (Converts from US Dollars to Australian Dollars)
die "Usage: $0 FROM TO\n" unless defined($ARGV[1]);
my $q = Finance::Quote->new();
my $exchange_rate = $q->currency($ARGV[0],$ARGV[1]);
die "Urgh! Nothing back\n" unless $exchange_rate;
print $ARGV[0]."->".$ARGV[1]." = ".$exchange_rate."\n";
Finance-Quote-1.51/Examples/chkshares.pl 0000755 0001750 0001750 00000002474 14070425453 020030 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use lib '../lib';
use Finance::Quote qw/asx/;
=head1 NAME
chkshares.pl - Check share information.
=head1 USAGE
chkshares.pl australia TLS CML ITE
=head1 NOTES
Example program. Demonstrates how to use one of the interface to
Finance::Quote. The first argument must be the market.
=cut
my ($name, $date, $last, $p_change, $high, $low, $volume, $close);
format STDOUT_TOP =
STOCK REPORT
TICKER DATE LAST %CHANGE HIGH LOW VOLUME CLOSE
----------------------------------------------------------------------------------
.
format STDOUT =
@<<<<<< @>>>>>>>>>> @####.### @###.### @####.### @####.### @>>>>>>>> @####.###
$name, $date, $last, $p_change, $high, $low, $volume, $close
.
my $quoter = Finance::Quote->new();
my $market = shift || die "Usage: $0 market stocks\n";
my %quote = $quoter->fetch($market,@ARGV);
foreach my $code (@ARGV) {
unless ($quote{$code,"success"}) {
warn "Lookup of $code failed - ".$quote{$code,"errormsg"}."\n";
next;
}
$name = $code;
$date = $quote{$code,'date'};
$last = $quote{$code,'last'};
$p_change = $quote{$code,'p_change'};
$high = $quote{$code,'high'};
$low = $quote{$code,'low'};
$volume = $quote{$code,'volume'};
$close = $quote{$code,'close'};
write;
}
Finance-Quote-1.51/Examples/stockdump.pl 0000755 0001750 0001750 00000000764 14070425453 020066 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use lib '../lib';
use Finance::Quote;
use Data::Dumper;
use Getopt::Std;
# A very very simple script. Takes a source and a symbol, looks it up,
# and dumps it to STDOUT. Useful for debugging.
my %options = ('c' => '');
getopts('c:',\%options);
die "Usage: $0 [-c currency] source symbol\n" unless (defined $ARGV[1]);
my $q = Finance::Quote->new;
if ($options{'c'}) {
$q->set_currency($options{'c'});
}
my %quotes = $q->fetch(@ARGV);
print Dumper(\%quotes);
Finance-Quote-1.51/Examples/Quote_example.pl 0000755 0001750 0001750 00000004770 14070425453 020666 0 ustar bschuck bschuck #!/usr/bin/perl -w
#
# example script showing how to use the Quote perl module.
# gets prices for some stocks, for some mutual funds
#
# This script was originally part of GnuCash.
use lib '../lib';
use Finance::Quote;
my $q = Finance::Quote->new();
# -----------------------------------
# get quotes for two stocks ...
%quotes = $q->yahoo ("IBM", "SGI");
# print some selected values
print "NYSE by Yahoo: ", $quotes {"IBM", "name"},
" last price: ", $quotes {"IBM", "last"}, "\n";
print "NYSE by Yahoo: ", $quotes {"SGI", "name"},
" last price: ", $quotes {"SGI", "last"}, "\n";
# loop over and print all values.
# Notes that values are stored ion a multi-dimensional associative array
foreach $k (sort (keys %quotes)) {
($sym, $attr) = split ($;, $k, 2);
$val = $quotes {$sym, $attr};
# $val = $quotes {$k}; # this also works, if desired ...
print "\t$sym $attr =\t $val\n";
}
print "\n\n";
# -----------------------------------
# get quotes from Fidelity Investments
@funds = ("FGRIX", "FNMIX", "FASGX", "FCONX");
%quotes = $q->fidelity (@funds);
foreach $f (@funds) {
$name = $quotes {$f, "name"};
$nav = $quotes {$f, "nav"};
print "Fidelity Fund $f $name \tNAV = $nav\n";
}
print "\n\n";
# -----------------------------------
@funds = ("FGRXX");
%quotes = $q->fidelity (@funds);
print "Not all funds have a NAV; some have Yeilds:\n";
foreach $f (@funds) {
$name = $quotes {$f, "name"};
$yield = $quotes {$f, "yield"};
print "\tFidelity $f $name 30-day Yield = $yield percent\n";
}
print "\n\n";
# -----------------------------------
# demo T. Rowe Price -- same as above
@funds = ("PRFDX", "PRIDX");
%quotes = $q->troweprice (@funds);
foreach $f (@funds) {
$nav = $quotes {$f, "nav"};
$dayte = $quotes {$f, "date"};
print "T. Rowe Price $f NAV = $nav as of $dayte\n";
}
print "\n\n";
# -----------------------------------
# demo for ASX. Grab the price of Coles-Myer and Telstra
@funds = ("CML","TLS");
%quotes = $q->asx(@funds);
foreach $f (@funds) {
print "ASX Price of $f is ".$quotes{$f,"last"}." at ".
$quotes{$f,"date"}."\n";
}
print "\n\n";
# Demo for TIAA-CREF.
@funds = qw/CREFstok BOGOname TIAAreal CREFmony/;
%quotes = $q->tiaacref(@funds);
foreach $f (@funds) {
if ($quotes{$f,"success"} == 1) {
print "TIAA-CREF Price of ".$quotes{$f,"name"}." is ".$quotes{$f,"nav"}.
" at ".$quotes{$f,"date"}."\n";
} else {
print "Error: ".$quotes{$f,"errormsg"}." for ".$f."\n";
}
}
print "\n\n";
Finance-Quote-1.51/MANIFEST 0000644 0001750 0001750 00000005717 14070425453 015073 0 ustar bschuck bschuck # This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.010.
Changes
Documentation/FAQ
Documentation/Hackers-Guide
Documentation/License
Documentation/README
Documentation/Release.md
Documentation/Release.txt
Examples/Quote_example.pl
Examples/chkshares.pl
Examples/currency-lookup.pl
Examples/stockdump.pl
LICENSE
MANIFEST
META.json
META.yml
Makefile.PL
README
htdocs/Images/Button1.gif
htdocs/Images/Button2.gif
htdocs/Images/bg.jpg
htdocs/Images/bg2.jpg
htdocs/Images/logo_big1.gif
htdocs/Images/logo_medium1.gif
htdocs/Images/logo_small1.gif
htdocs/Images/logo_small2.gif
htdocs/Stylesheet.css
htdocs/developer.html
htdocs/discussion.html
htdocs/documentation.html
htdocs/download.html
htdocs/index.html
htdocs/tpj/finance-quote-example
htdocs/tpj/finance-quote-sidebar
htdocs/tpj/finance-quote.txt
lib/Finance/Quote.pm
lib/Finance/Quote/AEX.pm
lib/Finance/Quote/ASEGR.pm
lib/Finance/Quote/ASX.pm
lib/Finance/Quote/AlphaVantage.pm
lib/Finance/Quote/BSEIndia.pm
lib/Finance/Quote/Bloomberg.pm
lib/Finance/Quote/Bourso.pm
lib/Finance/Quote/CSE.pm
lib/Finance/Quote/Cdnfundlibrary.pm
lib/Finance/Quote/Comdirect.pm
lib/Finance/Quote/Currencies.pm
lib/Finance/Quote/CurrencyRates/AlphaVantage.pm
lib/Finance/Quote/CurrencyRates/ECB.pm
lib/Finance/Quote/CurrencyRates/Fixer.pm
lib/Finance/Quote/CurrencyRates/OpenExchange.pm
lib/Finance/Quote/DWS.pm
lib/Finance/Quote/Deka.pm
lib/Finance/Quote/FTfunds.pm
lib/Finance/Quote/Fidelity.pm
lib/Finance/Quote/Finanzpartner.pm
lib/Finance/Quote/Fondsweb.pm
lib/Finance/Quote/Fool.pm
lib/Finance/Quote/Fundata.pm
lib/Finance/Quote/GoldMoney.pm
lib/Finance/Quote/HU.pm
lib/Finance/Quote/IEXCloud.pm
lib/Finance/Quote/IndiaMutual.pm
lib/Finance/Quote/MStaruk.pm
lib/Finance/Quote/MorningstarAU.pm
lib/Finance/Quote/MorningstarJP.pm
lib/Finance/Quote/NSEIndia.pm
lib/Finance/Quote/NZX.pm
lib/Finance/Quote/OnVista.pm
lib/Finance/Quote/Oslobors.pm
lib/Finance/Quote/SEB.pm
lib/Finance/Quote/SIX.pm
lib/Finance/Quote/TMX.pm
lib/Finance/Quote/TSP.pm
lib/Finance/Quote/Tiaacref.pm
lib/Finance/Quote/Tradeville.pm
lib/Finance/Quote/Troweprice.pm
lib/Finance/Quote/USFedBonds.pm
lib/Finance/Quote/Union.pm
lib/Finance/Quote/UserAgent.pm
lib/Finance/Quote/XETRA.pm
lib/Finance/Quote/YahooJSON.pm
lib/Finance/Quote/ZA.pm
t/00-store-date.t
t/01-pod.t
t/02-pod-coverage.t
t/03-kwalitee.t
t/04-critic.t
t/05-data-dumper.t
t/aex.t
t/alphavantage.t
t/asegr.t
t/asx.t
t/aufunds.t
t/author-pod-syntax.t
t/bloomberg.t
t/bourso.t
t/bseindia.t
t/cdnfundlibrary.t
t/comdirect.t
t/cse.t
t/currencies.t
t/currency-openexchange.t
t/currency.t
t/currency_lookup.t
t/deka.t
t/dws.t
t/fidelity.t
t/finanzpartner.t
t/fondsweb.t
t/fool.t
t/fq-class-methods.t
t/fq-object-methods.t
t/ftfunds.t
t/fundata.t
t/goldmoney.t
t/hu.t
t/iexcloud.t
t/indiamutual.t
t/morningstarJP.t
t/morningstarau.t
t/mstaruk.t
t/nseindia.t
t/nzx.t
t/onvista.t
t/oslobors.t
t/quote.t
t/seb.t
t/six.t
t/tiaacref.t
t/tmx.t
t/tradeville.t
t/troweprice.t
t/tsp.t
t/ukfunds.t
t/union.t
t/usfedbonds.t
t/yahoojson.t
t/za.t
Finance-Quote-1.51/t/ 0000775 0001750 0001750 00000000000 14070425453 014175 5 ustar bschuck bschuck Finance-Quote-1.51/t/tiaacref.t 0000755 0001750 0001750 00000003544 14070425453 016147 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
use Time::Piece;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 91;
# Test TIAA-CREF functions.
my $q = Finance::Quote->new();
my $year = localtime()->year;
my $lastyear = $year - 1;
my @symbols = do { no warnings 'qw'; qw/
QCBMIX
TEMLX
TLFIX
TSBPX
W156#
W323#
W464#
W719#
/};
ok( my %quotes = $q->tiaacref( @symbols, 'BOGUS' ), 'retrieved quotes' );
for my $symbol (@symbols) {
# the following labels are expected to be supplied:
# symbol, nav, currency, method, exchange, price, date, isodate
ok( $quotes{$symbol,"success"} > 0, "$symbol got retrieved" );
ok( $quotes{$symbol,"symbol"} eq $symbol, "$symbol has matching symbol" );
ok( $quotes{$symbol,"nav"} > 0, "$symbol has a NAV" );
ok( $quotes{$symbol,"nav"} =~ /^[\d\.]+$/, "$symbol NAV looks numeric" );
ok( $quotes{$symbol,"currency"} eq "USD", "$symbol currency is valid" );
ok( $quotes{$symbol,"method"} eq 'tiaacref', "$symbol has matching method" );
ok( $quotes{$symbol,"exchange"} eq 'TIAA', "$symbol has matching exchange" );
ok( length $quotes{$symbol,"name"}, "$symbol has defined name" );
ok( $quotes{$symbol,"price"} == $quotes{$symbol,'nav'},
"$symbol price == NAV" );
ok( substr($quotes{$symbol,"isodate"}, 0, 4) == $year
|| substr($quotes{$symbol,"isodate"}, 0, 4) == $lastyear,
"$symbol isodate is recent" );
ok( substr($quotes{$symbol,"date"}, 6, 4) == $year
|| substr($quotes{$symbol,"date"}, 6, 4) == $lastyear,
"$symbol date is recent" );
};
ok( $quotes{"BOGUS","success"} == 0, "BOGUS failed" );
ok( length $quotes{"BOGUS","errormsg"}, "BOGUS returned error message" );
Finance-Quote-1.51/t/fidelity.t 0000755 0001750 0001750 00000002515 14070425453 016177 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 25;
# Test Fidelity functions.
my $q = Finance::Quote->new();
my @funds = qw/FGRIX FNMIX FASGX/;
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my %quotes = $q->fidelity_direct(@funds);
ok(%quotes);
### quotes : %quotes
# Check that the name and nav are defined for all of the funds.
foreach my $fund (@funds) {
ok($quotes{$fund,"nav"} > 0);
ok(length($quotes{$fund,"name"}));
ok($quotes{$fund,"success"});
ok($quotes{$fund, "currency"} eq "USD");
ok(substr($quotes{$fund,"isodate"},0,4) == $year ||
substr($quotes{$fund,"isodate"},0,4) == $lastyear);
ok(substr($quotes{$fund,"date"},6,4) == $year ||
substr($quotes{$fund,"date"},6,4) == $lastyear);
}
# Some funds have yields instead of navs. Check one of them too.
%quotes = $q->fidelity_direct("FEQTX");
ok(%quotes);
ok(length($quotes{"FEQTX","name"}));
ok($quotes{"FEQTX","yield"} > 0);
ok($quotes{"FEQTX","success"});
ok($quotes{"FEQTX", "currency"} eq "USD");
# Check that a bogus fund returns no-success.
%quotes = $q->fidelity_direct("BOGUS");
ok(! $quotes{"BOGUS","success"});
Finance-Quote-1.51/t/finanzpartner.t 0000644 0001750 0001750 00000001770 14070425453 017246 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 8;
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my $q = Finance::Quote->new("Finanzpartner");
my %quotes = $q->finanzpartner("LU0293315023", "BOGUS");
ok(%quotes);
### quotes : %quotes
# Check that the last and date values are defined.
ok($quotes{"LU0293315023","success"});
ok($quotes{"LU0293315023","last"} > 0);
ok(length($quotes{"LU0293315023","date"}) > 0);
ok(substr($quotes{"LU0293315023","isodate"},0,4) == $year ||
substr($quotes{"LU0293315023","isodate"},0,4) == $lastyear);
ok(substr($quotes{"LU0293315023","date"},6,4) == $year ||
substr($quotes{"LU0293315023","date"},6,4) == $lastyear);
ok($quotes{"LU0293315023","currency"} eq "EUR");
# Check that a bogus fund returns non-success.
ok($quotes{"BOGUS","success"} == 0);
Finance-Quote-1.51/t/05-data-dumper.t 0000755 0001750 0001750 00000000717 14070425453 017015 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{TEST_AUTHOR}) {
plan( skip_all => 'Author test. Set $ENV{TEST_AUTHOR} to true to run.');
}
plan tests => 1;
# F::Q doesn't load all its code until we actually create
# an object.
my $fq = Finance::Quote->new;
# Sometimes Data::Dumper gets left in code by accident. Make sure
# we haven't done so.
ok(! exists $INC{'Data/Dumper.pm'}, "Data::Dumper should not be loaded");
Finance-Quote-1.51/t/quote.t 0000644 0001750 0001750 00000002677 14070425453 015531 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
plan tests => 28;
my $q = Finance::Quote->new();
# test isoTime function
ok($q->isoTime("11:39PM") eq "23:39") ;
ok($q->isoTime("9:10 AM") eq "09:10") ;
ok($q->isoTime("1.32") eq "01:32") ;
ok($q->isoTime("1u32") eq "01:32") ;
ok($q->isoTime("19h2") eq "19:02") ;
ok($q->isoTime("10:62") eq "00:00" ) ;
ok($q->isoTime("8:05am") eq "08:05" ) ;
ok($q->isoTime("4:00pm") eq "16:00" ) ;
ok($q->isoTime("0:59PM") eq "12:59" ) ;
ok($q->isoTime("12:00pm") eq "12:00" ) ;
ok($q->isoTime("12:10pm") eq "12:10" ) ; # yahoo might return 12:XXPM !
# decimal_shiftup()
is($q->decimal_shiftup('1',1), '10');
is($q->decimal_shiftup('1',2), '100');
is($q->decimal_shiftup('1.',1), '10');
is($q->decimal_shiftup('1.',2), '100');
is($q->decimal_shiftup('1.5',1), '15');
is($q->decimal_shiftup('1.5',2), '150');
is($q->decimal_shiftup('1.5',3), '1500');
is($q->decimal_shiftup('56',1), '560');
is($q->decimal_shiftup('56',2), '5600');
is($q->decimal_shiftup('56.00',-1), '5.600'); # we want to keep precision
is($q->decimal_shiftup('56.00',1), '560.0');
is($q->decimal_shiftup('1.2345678901234',3),
'1234.5678901234');
is($q->decimal_shiftup('0.12345678',1),
'1.2345678');
is($q->decimal_shiftup('0.00001',1),
'0.0001');
# _B_to_billions()
is($q->B_to_billions('1B'), '1000000000');
is($q->B_to_billions('1.5B'), '1500000000');
is($q->B_to_billions('1.23456789876B'), '1234567898.76');
Finance-Quote-1.51/t/fq-object-methods.t 0000644 0001750 0001750 00000005256 14070425453 017703 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
if (not $ENV{'ONLINE_TEST'}) {
plan tests => 16;
} else {
plan tests => 23;
}
my $q;
my $result;
use Finance::Quote;
ok(1, "Finance::Quote loaded");
if ( $ENV{'ONLINE_TEST'}) {
$q = Finance::Quote->new('YahooJSON');
ok( $q, "specific module constructor");
$result = $q->fetch("yahoo_json", "IBM");
ok( (ref $result eq "HASH" and exists $result->{'IBM','success'}), "check fetch on specific module");
$result = $q->fetch("usa", "IBM");
ok( !defined $result, "check fetch on wrong specific module");
$q = Finance::Quote->new();
ok( $q, "bare constructor");
$result = $q->fetch("usa", "IBM");
ok( (ref $result eq "HASH" and exists $result->{'IBM','success'}), "check fetch on specific module");
}
$q = Finance::Quote->new();
ok( $q->B_to_billions("1.234B") eq "1234000000", "B_to_billions check");
ok( $q->decimal_shiftup("6.789", 2) eq "678.9", "decimal_shiftup test");
ok( $q->get_failover(), "check default failover");
$q->set_failover(0);
ok( !$q->get_failover(), "check set/get failover");
$q = Finance::Quote->new(failover => 0);
ok( !$q->get_failover(), "check failover for named argument constructor");
$q = Finance::Quote->new();
ok( !defined $q->get_fetch_currency(), "default currency is not defined");
$q->set_fetch_currency('aud');
ok( 'aud' eq $q->get_fetch_currency(), "check set/get currency");
$q = Finance::Quote->new(fetch_currency => 'usd');
ok( 'usd' eq $q->get_fetch_currency(), "check named parameter fetch_currency");
$q = Finance::Quote->new();
ok( 0 == @{$q->get_required_labels()}, "check default required labels");
my $labels = ['close', 'isodate', 'last'];
$q->set_required_labels($labels);
ok( join(",", sort @{$labels}) eq join(",", @{$q->get_required_labels()}), "check set/get required_labels");
if ( $ENV{'ONLINE_TEST'}) {
$result = $q->fetch("yahoo_json", "IBM");
ok( (ref $result eq "HASH" and exists $result->{'IBM','success'}), "check fetch on specific module");
}
$q = Finance::Quote->new(required_labels => ['does-not-exist']);
ok( 'does-not-exist' eq join(",", @{$q->get_required_labels()}), "check set/get required_labels");
if ( $ENV{'ONLINE_TEST'}) {
$result = $q->fetch("usa", "IBM");
ok( (ref $result eq "HASH" and !%{$result}), "check required_labels is enforeced");
}
$q = Finance::Quote->new();
ok( !defined $q->get_timeout(), "check default timeout");
$q->set_timeout(123);
ok( 123 == $q->get_timeout(), "check set/get timeout");
$q = Finance::Quote->new(timeout => 456);
ok( 456 == $q->get_timeout(), "check timeout as named parameter");
print ref $q->get_user_agent(), "\n";
ok( 'LWP::UserAgent' eq ref $q->get_user_agent(), "check get_user_agent");
Finance-Quote-1.51/t/01-pod.t 0000755 0001750 0001750 00000000435 14070425453 015365 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
if (not $ENV{TEST_AUTHOR}) {
plan( skip_all => 'Author test. Set $ENV{TEST_AUTHOR} to true to run.');
}
eval "use Test::Pod 1.00"; ## no critic
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
all_pod_files_ok();
Finance-Quote-1.51/t/tsp.t 0000755 0001750 0001750 00000002654 14070425453 015200 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my $quoter = Finance::Quote->new();
my @symbols = qw/C F G I S L2025 L2030 L2035 L2040 L2045 L2050 L2055 L2060 L2065 LINCOME/;
plan tests => 12*(1+$#symbols)+3;
my %quotes = $quoter->tsp( @symbols, "BOGUS" );
ok(%quotes);
foreach my $symbol (@symbols) {
ok($quotes{$symbol, "success" }, "$symbol success");
ok(substr($quotes{$symbol, "isodate"}, 0, 4) == $year
|| substr($quotes{$symbol, "isodate"}, 0, 4) == $lastyear);
ok(substr($quotes{$symbol, "date"}, 6, 4) == $year
|| substr($quotes{$symbol, "date"}, 6, 4) == $lastyear);
ok($quotes{$symbol,"last"} > 0);
ok($quotes{$symbol,"currency"});
ok(!defined($quotes{"c","exchange"}) );
}
ok( !$quotes{"BOGUS","success"});
%quotes = $quoter->fetch("tsp", @symbols);
ok(%quotes);
foreach my $symbol (@symbols) {
ok($quotes{$symbol, "success" }, "$symbol success");
ok(substr($quotes{$symbol, "isodate"}, 0, 4) == $year
|| substr($quotes{$symbol, "isodate"}, 0, 4) == $lastyear);
ok(substr($quotes{$symbol, "date"}, 6, 4) == $year
|| substr($quotes{$symbol, "date"}, 6, 4) == $lastyear);
ok($quotes{$symbol,"last"} > 0);
ok($quotes{$symbol,"currency"});
ok(!defined($quotes{"c","exchange"}) );
}
Finance-Quote-1.51/t/union.t 0000755 0001750 0001750 00000001573 14070425453 015521 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 7;
# Test TD Waterhouse functions.
my $q = Finance::Quote->new();
my %quotes = $q->unionfunds("975792","12345");
ok(%quotes);
# Check the last values are defined. These are the most
# used and most reliable indicators of success.
ok($quotes{"975792","last"} > 0);
ok($quotes{"975792","success"});
ok($quotes{"975792", "currency"} eq "EUR");
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
ok(substr($quotes{"975792","isodate"},0,4) eq $year ||
substr($quotes{"975792","isodate"},0,4) eq $lastyear);
ok(substr($quotes{"975792","date"},6,4) eq $year ||
substr($quotes{"975792","date"},6,4) eq $lastyear);
# Check that bogus stocks return failure:
ok(! $quotes{"12345","success"});
Finance-Quote-1.51/t/aufunds.t 0000644 0001750 0001750 00000003503 14070425453 016026 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Date::Simple qw(today);
use Scalar::Util qw(looks_like_number);
use Date::Range;
use Date::Manip;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %valid = ('BFL0002AU' => 'Bennelong Concentrated Australian Eq',
'IML0004AU' => 'Investors Mutual All Industrials Share',
'FID0021AU' => 'Fidelity Australian Opportunities',
);
my @invalid = ('BOGUS');
my @symbols = (keys %valid, @invalid);
my $today = today();
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'success' => sub {$_[0]},
'currency' => sub {$_[0] eq 'AUD'},
'name' => sub {$_[0] eq $valid{$_[1]}},
'price' => sub {looks_like_number($_[0])},
'isodate' => sub {Date::Range->new($today - 31, $today)->includes(Date::Simple::ISO->new($_[0]))},
'date' => sub {my $a = Date::Manip::Date->new(); $a->parse_format('%m/%d/%Y', $_[0]);
my $b = Date::Manip::Date->new(); $b->parse_format('%Y-%m-%d', $_[2]->{$_[1], 'isodate'});
return $a->cmp($b) == 0;},
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + @invalid;
my %quotes = $q->fetch('aufunds', @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> $quotes{$symbol, $key}");
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/six.t 0000644 0001750 0001750 00000005044 14070425453 015166 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Date::Simple qw(today);
use Scalar::Util qw(looks_like_number);
use Date::Range;
use Date::Manip;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %valid = ('NESN' => "Nestl\x{e9} AG",
'CSSMI' => 'BlackRock Asset Management Schweiz AG',
'AAPL' => 'Apple Inc'
);
my @invalid = ('BOGUS');
my @symbols = (keys %valid, @invalid);
my $method = 'six'; # Name of the target method for testing
my $currency = 'EUR'; # expected quote curreny
my $today = today(); # together with $window, validate date/isodate
my $window = 7; # quote must be within last $window days
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'success' => sub {$_[0] == 1},
'volume' => sub {not defined $_[0] or looks_like_number($_[0])},
'open' => sub {not defined $_[0] or looks_like_number($_[0])},
'low' => sub {not defined $_[0] or looks_like_number($_[0])},
'high' => sub {not defined $_[0] or looks_like_number($_[0])},
'close' => sub {not defined $_[0] or looks_like_number($_[0])},
'ask' => sub {not defined $_[0] or looks_like_number($_[0])},
'currency' => sub {$_[0] =~ /^[A-Z]{3}$/},
'name' => sub {$_[0] eq $valid{$_[1]}},
'isin' => sub {$_[0] =~ /^[A-Z0-9]{12}$/},
'isodate' => sub {Date::Range->new($today - $window, $today)->includes(Date::Simple::ISO->new($_[0]))},
'date' => sub {my $a = Date::Manip::Date->new(); $a->parse_format('%m/%d/%Y', $_[0]);
my $b = Date::Manip::Date->new(); $b->parse_format('%Y-%m-%d', $_[2]->{$_[1], 'isodate'});
return $a->cmp($b) == 0;}
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + @invalid;
my %quotes = $q->fetch($method, @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> " . (defined $quotes{$symbol, $key} ? $quotes{$symbol, $key} : ''));
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/morningstarJP.t 0000644 0001750 0001750 00000003334 14070425453 017160 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use DateTime;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 9 * 2;
# Find out today
my $calcDay = DateTime->now();
my $year = $calcDay->year();
my $month = $calcDay->month();
my $day = $calcDay->day();
# Test Morningstar JP functions.
my $q = Finance::Quote->new();
my @funds = ( "2009100101", "2002013108" );
my %info = $q->morningstarjp(@funds);
ok(%info);
# Check that the symbol/name, date, currency and nav defined for all of the funds.
foreach my $fund (@funds)
{
# NAV date should be within 10 days of today, but we will allow +- 1 day
# on top of that for running tests outside of Asia/Tokyo timezone
my $fndyear = substr( $info{ $fund, "isodate" }, 0, 4 );
my $fndmonth = substr( $info{ $fund, "isodate" }, 5, 2 );
my $fndday = substr( $info{ $fund, "isodate" }, 8, 2 );
my $fnd = DateTime->new(year=>$fndyear,month=>$fndmonth,day=>$fndday);
my $deltadays = $calcDay->subtract_datetime($fnd)->in_units('days');
cmp_ok( $deltadays,'<=', 11, 'not more than 11 days before today' );
cmp_ok( $deltadays,'>=', -1, 'not more than 1 day in the future' );
cmp_ok( $info{ $fund, 'currency' }, 'eq', 'JPY', 'currency' );
cmp_ok( $info{ $fund, 'method' }, 'eq', 'MorningstarJP', 'method' );
cmp_ok( $info{ $fund, 'name' }, 'eq', $fund, 'name' );
cmp_ok( $info{ $fund, "nav" }, '>', 0, 'nav' );
ok( $info{ $fund, "success" }, 'success' );
cmp_ok( $info{ $fund, 'symbol' }, 'eq', $fund, 'symbol' );
}
# Check that a bogus symbol returns no-success.
ok( !$info{ "BOGUS", "success" } );
Finance-Quote-1.51/t/troweprice.t 0000755 0001750 0001750 00000002346 14070425453 016553 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
use Time::Piece;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 42;
# Test troweprice functions.
my $q = Finance::Quote->new();
my $year = localtime()->year;
my @symbols = qw/
PRFDX
PRIDX
TEUIX
RPGEX
GTFBX
/;
ok( my %quotes = $q->troweprice(@symbols, 'BOGUS'), 'Fetched quotes' );
foreach my $symbol (@symbols) {
ok( length $quotes{$symbol, "name"} > 0, "$symbol name length > 0");
ok( $quotes{$symbol, "nav"} > 0, "$symbol nav > 0");
ok( $quotes{$symbol, "price"} > 0, "$symbol price > 0");
ok( $quotes{$symbol, "symbol"} eq $symbol, "$symbol symbol match");
ok( length $quotes{$symbol, "date"} > 0, "$symbol date length > 0");
my $quote_year = substr($quotes{$symbol, "isodate"}, 0, 4 );
ok ($quote_year == $year || $quote_year - 1 == $year,
"$symbol isodate year check");
ok($quotes{$symbol, "method"} eq "troweprice",
"$symbol method is troweprice");
ok($quotes{$symbol, "currency"} eq 'USD',
"$symbol currency as expected");
}
# Check a bogus fund returns no-success
ok(! $quotes{"BOGUS","success"});
Finance-Quote-1.51/t/alphavantage.t 0000755 0001750 0001750 00000004361 14070425453 017022 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if ( not $ENV{"ONLINE_TEST"} ) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
if ( not $ENV{"TEST_ALPHAVANTAGE_API_KEY"} ) {
plan skip_all =>
'Set $ENV{TEST_ALPHAVANTAGE_API_KEY} to run this test; get one at https://www.alphavantage.co';
}
my $q = Finance::Quote->new('AlphaVantage', 'alphavantage' => {'API_KEY' => $ENV{"TEST_ALPHAVANTAGE_API_KEY"}} );
my $year = ( localtime() )[5] + 1900;
my $lastyear = $year - 1;
my @symbols = qw/
IBM
CSCO
SOLB.BR
SAP.DE
TD.TO
VFIAX
T
DIVO11.SA
TWTR
AAPL
ORCL
FB
CMCSA
INTC
NFLX
TSLA
NOK
BAC
GOOG
F
AXP
ERCB.DE
MRT-UN.TRT
BP.L
/;
plan tests => 1 + 11*(1+$#symbols) + 10;
my %quotes = $q->alphavantage( @symbols, "BOGUS" );
ok(%quotes);
foreach my $symbol (@symbols) {
ok( $quotes{ $symbol, "success" }, "$symbol success" );
ok( $quotes{ $symbol, "symbol" } eq $symbol , "$symbol defined" );
ok( $quotes{ $symbol, "open" } > 0, "$symbol returned open" );
ok( $quotes{ $symbol, "close" } > 0, "$symbol returned close" );
ok( $quotes{ $symbol, "last" } > 0, "$symbol returned last" );
ok( $quotes{ $symbol, "high" } > 0, "$symbol returned high" );
ok( $quotes{ $symbol, "low" } > 0, "$symbol returned low" );
ok( $quotes{ $symbol, "volume" } >= 0, "$symbol returned volume" );
ok( $quotes{ $symbol, "p_change" } =~ /^[\-\.\d]+$/, "$symbol returned p_change" );
ok( substr( $quotes{ $symbol, "isodate" }, 0, 4 ) == $year
|| substr( $quotes{ $symbol, "isodate" }, 0, 4 ) == $lastyear );
ok( substr( $quotes{ $symbol, "date" }, 6, 4 ) == $year
|| substr( $quotes{ $symbol, "date" }, 6, 4 ) == $lastyear );
}
is( $quotes{ "IBM", "currency" }, 'USD' );
is( $quotes{ "CSCO", "currency" }, 'USD' );
is( $quotes{ "ERCB.DE", "currency" }, 'EUR' );
is( $quotes{ "SOLB.BR", "currency" }, 'EUR' );
is( $quotes{ "SAP.DE", "currency" }, 'EUR' );
is( $quotes{ "TD.TO", "currency" }, 'CAD' );
is( $quotes{ "MRT-UN.TRT", "currency" }, 'CAD' );
is( $quotes{ "BP.L", "currency" }, 'GBP' );
is( $quotes{ "DIVO11.SA", "currency" }, 'BRL' );
ok( !$quotes{ "BOGUS", "success" } );
Finance-Quote-1.51/t/usfedbonds.t 0000755 0001750 0001750 00000003227 14070425453 016523 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Date::Simple qw(today);
use Scalar::Util qw(looks_like_number);
use Date::Range;
use Date::Manip;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %valid = ('E197001.200606' => '137.00',
'E194112.200610' => '94.35',
'E194105.200610' => '90.59',
'S196712.202006' => '156.28');
my @invalid = ('BOGUS');
my @symbols = (keys %valid, @invalid);
my $method = 'usfedbonds'; # Name of the target method for testing
my $currency = 'USD'; # expected quote curreny
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'price' => sub {looks_like_number($_[0]) && $_[0] eq $valid{$_[1]}},
'currency' => sub {$_[0] eq $currency},
'date' => sub {$_[0] =~ m,^[0-9]{2}/[0-9]{2}/[0-9]{4},},
'isodate' => sub {$_[0] =~ m,[0-9]{4}-[0-9]{2}-[0-9]{2},},
'success' => sub {$_[0] == 1},
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + @invalid;
my %quotes = $q->fetch($method, @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> " . (defined $quotes{$symbol, $key} ? $quotes{$symbol, $key} : ''));
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/00-store-date.t 0000755 0001750 0001750 00000006651 14070425453 016657 0 ustar bschuck bschuck #!/usr/bin/perl -w
# Test to see if Finance::Quote can at least be loaded and store_date is
# working
use strict;
use Test::More;
plan tests => 19;
use Finance::Quote;
ok(1, "Finance::Quote loaded");
my $quote = Finance::Quote->new();
ok($quote, "quote object created");
# Get Today's date
my ($month, $day, $year2) = (localtime())[4,3,5];
$month++;
my $year4 += $year2 + 1900; # 2007
my $year4m += $year2 + 1900 - 1;# 2006
$year2 -= 100; # 05
my $isotoday = sprintf("%04d-%02d-%02d", $year4, $month, $day);
my $ustoday = sprintf("%02d/%02d/%04d", $month, $day, $year4);
# Test date functions
my %info;
$quote->store_date(\%info, "test", {today => 1});
ok($info{"test","isodate"} eq $isotoday,"test->isodate is today");
ok($info{"test","date"} eq $ustoday,"test->date is today");
# Test various permutions of an ISO Date as input
%info = ();
$quote->store_date(\%info, "test", {isodate => "2004-12-31"});
ok($info{"test","date"} eq "12/31/2004", "ISO date permutation 1");
%info = ();
$quote->store_date(\%info, "test", {isodate => "2004 Dec 31"});
ok($info{"test","date"} eq "12/31/2004","ISO date permutation 2");
%info = ();
$quote->store_date(\%info, "test", {isodate => "2004 December 31"});
ok($info{"test","date"} eq "12/31/2004","ISO date permutation 3");
# Test various permutions of an US Date as input
%info = ();
$quote->store_date(\%info, "test", {usdate => "12/31/2004"});
ok($info{"test","isodate"} eq "2004-12-31","US date permutation 1");
%info = ();
$quote->store_date(\%info, "test", {usdate => "Dec 31, 2004"});
ok($info{"test","isodate"} eq "2004-12-31","US date permutation 2");
%info = ();
$quote->store_date(\%info, "test", {usdate => "December 31 2004"});
ok($info{"test","isodate"} eq "2004-12-31","US date permutation 3");
# Test various permutions of an European Date as input
%info = ();
$quote->store_date(\%info, "test", {eurodate => "31/12/2004"});
ok($info{"test","isodate"} eq "2004-12-31","EUR date permutation 1" );
%info = ();
$quote->store_date(\%info, "test", {eurodate => "31 December 2004"});
ok($info{"test","isodate"} eq "2004-12-31","EUR date permutation 2");
%info = ();
$quote->store_date(\%info, "test", {eurodate => "31 Dec, 2004"});
ok($info{"test","isodate"} eq "2004-12-31","EUR date permutation 3");
# Try some other permutions. A recent change to the date handling
# code changes the behavior if a year is not explicitly provided. Now
# it will look at the month and decide if the date is in the current
# year or is from the previous year. This code still has to handle
# being executed on 12/31, thus the dual tests for each date.
%info = ();
$quote->store_date(\%info, "test", {day=>"31", month=>"12"});
ok($info{"test","date"} eq "12/31/$year4" ||
$info{"test","date"} eq "12/31/$year4m","test year 1");
ok($info{"test","isodate"} eq "$year4-12-31" ||
$info{"test","isodate"} eq "$year4m-12-31","test year 2");
%info = ();
$quote->store_date(\%info, "test", {day=>"31", month=>"December"});
ok($info{"test","date"} eq "12/31/$year4" ||
$info{"test","date"} eq "12/31/$year4m","test year 3");
ok($info{"test","isodate"} eq "$year4-12-31" ||
$info{"test","isodate"} eq "$year4m-12-31","test year 4");
%info = ();
$quote->store_date(\%info, "test", {day=>"31", month=>"December", year => $year2});
ok($info{"test","date"} eq "12/31/$year4" ||
$info{"test","date"} eq "12/31/$year4m","test year 5");
ok($info{"test","isodate"} eq "$year4-12-31" ||
$info{"test","isodate"} eq "$year4m-12-31","test year 6");
Finance-Quote-1.51/t/za.t 0000755 0001750 0001750 00000003745 14070425453 015006 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Date::Simple qw(today);
use Scalar::Util qw(looks_like_number);
use Date::Range;
use Date::Manip;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %valid = ('AGL' => 'ANGLO AMERICAN PLC - AGL',
'AMS' => 'ANGLO AMERICAN PLATINUM CORPORATION LIMITED - AMS'
);
my @invalid = ('BOGUS');
my @symbols = (keys %valid, @invalid);
my $method = 'za'; # Name of the target method for testing
my $currency = 'ZAR'; # expected quote curreny
my $today = today(); # together with $window, validate date/isodate
my $window = 7; # quote must be within last $window days
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'success' => sub {$_[0]},
'currency' => sub {$_[0] eq $currency},
'name' => sub {$_[0] eq $valid{$_[1]}},
'price' => sub {looks_like_number($_[0])},
'isodate' => sub {Date::Range->new($today - $window, $today + 1)->includes(Date::Simple::ISO->new($_[0]))},
'date' => sub {my $a = Date::Manip::Date->new(); $a->parse_format('%m/%d/%Y', $_[0]);
my $b = Date::Manip::Date->new(); $b->parse_format('%Y-%m-%d', $_[2]->{$_[1], 'isodate'});
return $a->cmp($b) == 0;},
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + @invalid;
my %quotes = $q->fetch($method, @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> $quotes{$symbol, $key}");
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/asx.t 0000755 0001750 0001750 00000015515 14070425453 015165 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use Scalar::Util qw(looks_like_number);
use Finance::Quote;
use Test::More;
use Time::Piece;
use feature 'say';
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 6;
# Listed securities come and go, so entries on these lists will eventually fail.
my @ordinaries = qw/ARG BHP CBA RIO/;
my @numerics = qw/360 14D A2M XF1/;
my @corp_bonds = qw/ANZPH AYUHD IAGPD NABHA/;
my @govt_bonds = qw/GSBK51 GSIC50/;
my @etps = qw/BEAR ETPMPT GOLD IAA/;
my @warrants = qw/BHPSOA/;
my @indices = qw/XAO XJO/;
my @invalids = qw/BOGUS TooLong Non-AN/;
my ($q, %quotes);
subtest 'Startup: Test object creation' => sub {
$q = new_ok( 'Finance::Quote' );
};
subtest 'Test the "normal" securities that use the Primary ASX data source' => sub {
ok( %quotes = $q->asx(@ordinaries, @numerics), 'fetch quotes' );
for my $symbol (@ordinaries, @numerics) {
ok( $quotes{$symbol, 'success'} == 1, "Success for $symbol" );
subtest "Data tests for $symbol" => sub {
plan 'skip_all' => "Bypass data tests for $symbol - no data returned" unless $quotes{$symbol, 'success'} == 1;
plan tests => 22;
ok( $quotes{$symbol, 'errormsg'} eq '', 'no error message for valid symbol' );
ok( $quotes{$symbol, 'currency'} eq 'AUD', 'got expected currency' );
ok( $quotes{$symbol, 'method' } eq 'asx', 'got expected method' );
ok( length $quotes{$symbol,'name'}, 'got a name' );
ok( $quotes{$symbol,'symbol'} eq $symbol, 'matching symbol' );
ok( $quotes{$symbol, 'exchange'} eq 'Australian Securities Exchange',
'got expected exchange' );
my $date = Time::Piece->strptime($quotes{$symbol,'date'}, '%m/%d/%Y');
ok( $date >= localtime()->add_years(-1), 'date less than a year ago' );
my $isodate = Time::Piece->strptime($quotes{$symbol,'isodate'}, '%Y-%m-%d');
ok( $isodate >= localtime()->add_years(-1), 'isodate less than a year ago' );
# For the securities in this group, expect *all* prices and volume to have non-zero values.
# (The occasional trading halt or corporate action may cause some of these to fail - c'est la vie.)
for my $field (qw/ask bid close high last low open price volume/) {
ok( $quotes{$symbol, $field} > 0, "$field > 0" );
}
for my $field (qw/cap eps net p_change pe/) {
ok( looks_like_number($quotes{$symbol, $field}),
"$field looks like a number" );
}
done_testing();
};
}
done_testing();
};
subtest 'Test the "other" security types, many of which use the Alternate ASX data source' => sub {
ok( %quotes = $q->asx(@corp_bonds, @govt_bonds, @etps, ), 'fetch quotes' );
for my $symbol (@corp_bonds, @govt_bonds, @etps) {
ok( $quotes{$symbol, 'success'} == 1, "success for $symbol" );
subtest "Data tests for $symbol" => sub {
plan 'skip_all' => "Bypass data tests for $symbol - no data returned" unless $quotes{$symbol, 'success'} == 1;
plan tests => 13;
ok( $quotes{$symbol, 'errormsg'} eq '', 'no error message for valid symbol' );
ok( $quotes{$symbol, 'currency'} eq 'AUD', 'got expected currency' );
ok( $quotes{$symbol, 'method' } eq 'asx', 'got expected method' );
ok( length $quotes{$symbol,'name'}, 'got a name' );
ok( $quotes{$symbol,'symbol'} eq $symbol, 'matching symbol' );
ok( $quotes{$symbol, 'exchange'} eq 'Australian Securities Exchange',
'got expected exchange' );
# For the securities in this group, only expect the prices to have non-zero values.
for my $field (qw/last price/) {
ok( $quotes{$symbol, $field} > 0, "$field > 0" );
}
for my $field (qw/ask bid/) {
SKIP: {
skip "Bypass check for '$field' if not received", 1 if $quotes{$symbol, $field} eq '';
ok( looks_like_number($quotes{$symbol, $field}),
"$field looks like a number" );
}
}
for my $field (qw/net p_change volume/) {
ok( looks_like_number($quotes{$symbol, $field}),
"$field looks like a number" );
}
done_testing();
};
}
done_testing();
};
subtest 'Test the "warrants and options" security types, which use the Alternate ASX data source and are thinly traded' => sub {
ok( %quotes = $q->asx(@warrants), 'fetch quotes' );
for my $symbol (@warrants) {
ok( $quotes{$symbol, 'success'} == 1, "success for $symbol" );
subtest "Data tests for $symbol" => sub {
plan 'skip_all' => "Bypass data tests for $symbol - no data returned" unless $quotes{$symbol, 'success'} == 1;
plan tests => 12;
ok( $quotes{$symbol, 'errormsg'} eq '', 'no error message for valid symbol' );
ok( $quotes{$symbol, 'currency'} eq 'AUD', 'got expected currency' );
ok( $quotes{$symbol, 'method' } eq 'asx', 'got expected method' );
ok( length $quotes{$symbol,'name'}, 'got a name' );
ok( length $quotes{$symbol,'type'}, 'got a type' );
ok( $quotes{$symbol,'symbol'} eq $symbol, 'matching symbol' );
ok( $quotes{$symbol, 'exchange'} eq 'Australian Securities Exchange',
'got expected exchange' );
# For the securities in this group, only check for numeric values.
for my $field (qw/last price net p_change volume/) {
ok( looks_like_number($quotes{$symbol, $field}),
"$field looks like a number" );
}
done_testing();
};
}
done_testing();
};
subtest 'Test the indexes, which use the Alternate ASX data source' => sub {
ok( %quotes = $q->asx(@indices), 'fetch quotes' );
for my $symbol (@indices) {
ok( $quotes{$symbol, 'success'} == 1, "success for $symbol" );
subtest "Data tests for $symbol" => sub {
plan 'skip_all' => "Bypass data tests for $symbol - no data returned" unless $quotes{$symbol, 'success'} == 1;
plan tests => 10;
ok( $quotes{$symbol, 'errormsg'} eq '', 'no error message for valid symbol' );
ok( $quotes{$symbol, 'method' } eq 'asx', 'got expected method' );
ok( length $quotes{$symbol,'name'}, 'got a name' );
ok( $quotes{$symbol,'symbol'} eq $symbol, 'matching symbol' );
ok( $quotes{$symbol, 'exchange'} eq 'Australian Securities Exchange',
'got expected exchange' );
# Indices should have non-zero prices and volumes.
for my $field (qw/last price volume/) {
ok( $quotes{$symbol, $field} > 0, "$field > 0" );
}
for my $field (qw/net p_change/) {
ok( looks_like_number($quotes{$symbol, $field}),
"$field looks like number" );
}
done_testing();
};
}
done_testing();
};
subtest 'Test that invalid symbols fail properly' => sub {
ok( %quotes = $q->asx(@invalids), 'fetch quotes' );
for my $symbol (@invalids) {
subtest "Data tests for $symbol" => sub {
plan tests => 2;
ok( !$quotes{$symbol, 'success'}, , 'bad symbol returned no result' );
ok( $quotes{$symbol, 'errormsg'} ne '', 'got error message for bad symbol' );
done_testing();
};
}
done_testing();
};
done_testing();
Finance-Quote-1.51/t/tradeville.t 0000644 0001750 0001750 00000003363 14070425453 016520 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my $q = Finance::Quote->new();
my @valid = ('TLV', 'BRD', 'SNP');
my @invalid = qw/BOGUS/;
my @symbols = (@valid, @invalid);
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my %check = (
'cap' => sub { $_[0] =~ /^[0-9,]+$/ },
'currency' => sub { $_[0] =~ /^[A-Z]+$/ },
'date' => sub { $_[0] =~ m{^[0-9]{2}/[0-9]{2}/[0-9]{4}$} },
'day_range' => sub { $_[0] =~ m{^[0-9.]+/[0-9.]+$} },
'div_yield' => sub { $_[0] =~ m{^(-?[0-9.]+%)|(n/a)$} },
'exchange' => sub { $_[0] =~ /^[A-Za-z]+$/ },
'isodate' => sub { $_[0] =~ /^[0-9]{4}-[0-9]{2}-[0-9]{2}$/ },
'last' => sub { $_[0] =~ /^[0-9.]+$/ },
'method' => sub { $_[0] =~ /^tradeville$/ },
'open' => sub { $_[0] =~ /^[0-9.]+$/ },
'p_change' => sub { $_[0] =~ /^-?[0-9.]+%$/ },
'success' => sub { $_[0] },
'symbol' => sub { $_[0] eq $_[1] },
'volume' => sub { $_[0] =~ /^[0-9,]+$/ },
);
plan tests => 1 + %check*@valid + @invalid;
my %quotes = $q->fetch('tradeville', @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (@valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol), "$key -> $quotes{$symbol, $key}");
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/currency.t 0000755 0001750 0001750 00000005721 14070425453 016222 0 ustar bschuck bschuck #!/usr/bin/perl -w
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, Smart::Comments, '###';
use strict;
use Test::More;
use Finance::Quote;
use Scalar::Util qw(looks_like_number);
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
sub module_check
{
my ($module, $valid, $invalid, $options) = @_;
plan tests => 1 + 2*@{$valid} + @{$invalid};
my $hash = {order => [$module]};
$hash->{lc($module)} = $options if defined $options;
my $q = Finance::Quote->new('currency_rates' => $hash);
ok($q);
foreach my $test (@{$valid}) {
my ($from, $to) = @{$test};
my $v = $q->currency($from, $to);
ok(looks_like_number($v), "$from -> $to = $v");
my ($from_amount, $from_code) = $from =~ m/^([0-9.]+) ([A-Z]+)$/;
SKIP: {
skip "identity check because different currencies", 1 unless $from_code eq $to;
my ($suffix) = $from_amount =~ m/[.]([0-9]+)/;
my $string = sprintf("%.*f", length($suffix), $v);
ok($from_amount eq $string, "identity check");
};
}
foreach my $test (@{$invalid}) {
my ($from, $to) = @{$test};
my $v = $q->currency($from, $to);
is($v, undef, "$from -> $to failed as expected");
}
}
plan tests => 5;
# Check that FQ fails on bogus CurrencyRates method
my $q = Finance::Quote->new('currency_rates' => {order => ['DoesNotExist']});
ok(not $q);
# Check AlphaVantage
subtest 'AlphaVantage' => sub {
if ( not $ENV{TEST_ALPHAVANTAGE_API_KEY} ) {
plan skip_all =>
'Set $ENV{TEST_ALPHAVANTAGE_API_KEY} to run this test; get one at https://www.alphavantage.co';
}
my @valid = (['1.00 GBP', 'IQD'], ['10.00 AUD', 'AUD']);
my @invalid = (['20.12 ZZZ', 'GBP']);
module_check('AlphaVantage', \@valid, \@invalid, {API_KEY => $ENV{TEST_ALPHAVANTAGE_API_KEY}});
};
# Check ECB
subtest 'ECB' => sub {
my @valid = (['100.00 USD', 'EUR'], ['1.00 GBP', 'IDR'], ['1.23 IDR', 'CAD'], ['10.00 AUD', 'AUD']);
my @invalid = (['20.12 ZZZ', 'GBP']);
module_check('ECB', \@valid, \@invalid);
};
# Check Fixer
subtest 'Fixer' => sub {
if ( not $ENV{TEST_FIXER_API_KEY} ) {
plan skip_all =>
'Set $ENV{TEST_FIXER_API_KEY} to run this test; get one at https://fixer.io';
}
my @valid = (['100.00 USD', 'EUR'], ['1.00 GBP', 'IDR'], ['1.23 IDR', 'CAD'], ['10.00 AUD', 'AUD']);
my @invalid = (['20.12 ZZZ', 'GBP']);
module_check('Fixer', \@valid, \@invalid, {cache => 1, API_KEY => $ENV{TEST_FIXER_API_KEY}});
};
# Check Failover
subtest 'Failover' => sub {
if ( not $ENV{TEST_FIXER_API_KEY} ) {
plan skip_all =>
'Set $ENV{TEST_FIXER_API_KEY} to run this test; get one at https://fixer.io';
}
plan tests => 2;
my $q = Finance::Quote->new('currency_rates' => {order => ['ECB', 'Fixer'],
fixer => {API_KEY => $ENV{TEST_FIXER_API_KEY}}});
ok($q);
my ($from, $to) = ('1000 KZT', 'JPY');
my $v = $q->currency($from, $to);
ok(looks_like_number($v), "$from -> $to = $v");
};
Finance-Quote-1.51/t/tmx.t 0000755 0001750 0001750 00000003273 14070425453 015200 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Scalar::Util qw(looks_like_number);
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %valid = ('STN' => 'Stantec Inc.',
'BCE' => 'BCE Inc.',
'BMO' => 'Bank of Montreal'
);
my @invalid = ('BOGUS');
my @symbols = (keys %valid, @invalid);
my $method = 'tmx'; # Name of the target method for testing
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'success' => sub {$_[0] == 1},
'name' => sub {$_[0] eq $valid{$_[1]}},
'year_range' => sub {$_[0] =~ /[0-9.]+ - [0-9.]+/},
'exchange' => sub {$_[0] eq 'Toronto Stock Exchange'},
'symbol' => sub {$_[0] =~ /^$_[1](:CA)?$/},
'high' => sub {looks_like_number($_[0])},
'low' => sub {looks_like_number($_[0])},
'open' => sub {looks_like_number($_[0])},
'close' => sub {looks_like_number($_[0])},
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + @invalid;
my %quotes = $q->fetch($method, @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> " . (defined $quotes{$symbol, $key} ? $quotes{$symbol, $key} : ''));
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/04-critic.t 0000755 0001750 0001750 00000000521 14070425453 016057 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use File::Spec;
if (not $ENV{TEST_AUTHOR}) {
plan( skip_all => 'Author test. Set $ENV{TEST_AUTHOR} to true to run.');
}
eval { require Test::Perl::Critic; };
if ($@) {
plan( skip_all => 'Test::Perl::Critic required for test.');
}
Test::Perl::Critic->import();
all_critic_ok();
Finance-Quote-1.51/t/nzx.t 0000755 0001750 0001750 00000004310 14070425453 015200 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use DateTime qw(now);
use DateTime::Duration;
use DateTime::Format::ISO8601;
use Date::Manip;
use Scalar::Util qw(looks_like_number);
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %valid = ('TPW' => 'Trustpower Limited Ordinary Shares');
my @invalid = ('BOGUS');
my @symbols = (keys %valid, @invalid);
my $method = 'nzx'; # Name of the target method for testing
my $currency = 'NZD'; # expected quote curreny
my $today = DateTime->now()->set_time_zone('Pacific/Auckland'); # together with $window, validate date/isodate
my $window = $today - DateTime::Duration->new(days => 7); # quote must be within last $window days
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'success' => sub {$_[0] == 1},
'last' => sub {looks_like_number($_[0])},
'isin' => sub {$_[0] =~ /^[A-Z0-9]{12}$/},
'name' => sub {$_[0] eq $valid{$_[1]}},
'currency' => sub {$_[0] eq $currency},
'isodate' => sub {DateTime->compare($window, DateTime::Format::ISO8601->parse_datetime($_[0])) < 0},
'date' => sub {my $a = Date::Manip::Date->new(); $a->parse_format('%m/%d/%Y', $_[0]);
my $b = Date::Manip::Date->new(); $b->parse_format('%Y-%m-%d', $_[2]->{$_[1], 'isodate'});
return $a->cmp($b) == 0;}
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + @invalid;
my %quotes = $q->fetch($method, @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> " . (defined $quotes{$symbol, $key} ? $quotes{$symbol, $key} : ''));
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/deka.t 0000755 0001750 0001750 00000001706 14070425453 015273 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 13;
my $q = Finance::Quote->new("Deka");
$q->timeout(60);
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my @stocks = ("DE0008474511","LU0051755006");
my %quotes = $q->deka(@stocks, "BOGUS");
ok(%quotes);
foreach my $stock (@stocks) {
ok($quotes{$stock,"success"});
ok($quotes{$stock,"last"} > 0);
ok(substr($quotes{$stock,"isodate"},0,4) == $year ||
substr($quotes{$stock,"isodate"},0,4) == $lastyear);
ok(substr($quotes{$stock,"date"},6,4) == $year ||
substr($quotes{$stock,"date"},6,4) == $lastyear);
}
ok($quotes{"DE0008474511","currency"} eq "EUR");
ok($quotes{"LU0051755006","currency"} eq "USD");
# Check that a bogus fund returns no-success.
ok($quotes{"BOGUS","success"} == 0);
ok($quotes{"BOGUS","errormsg"} eq "No data returned");
Finance-Quote-1.51/t/aex.t 0000755 0001750 0001750 00000003244 14070425453 015143 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Date::Simple qw(today);
use Scalar::Util qw(looks_like_number);
use Date::Range;
use Date::Manip;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my @valid = ('AD', 'AMG', 'LVMH', 'XS0937858271', 'NL0000009165');
my @invalid = ('BOGUS');
my @symbols = (@valid, @invalid);
my $today = today();
my $window = 32; # XS0937858271 quotes are only updates 1-2 a month
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'success' => sub {$_[0]},
'last' => sub {looks_like_number($_[0])},
'volume' => sub {looks_like_number($_[0])},
'isodate' => sub {Date::Range->new($today - $window, $today)->includes(Date::Simple::ISO->new($_[0]))},
'date' => sub {my $a = Date::Manip::Date->new(); $a->parse_format('%m/%d/%Y', $_[0]);
my $b = Date::Manip::Date->new(); $b->parse_format('%Y-%m-%d', $_[2]->{$_[1], 'isodate'});
return $a->cmp($b) == 0;},
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*@valid + @invalid;
my %quotes = $q->fetch('aex', @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (@valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$symbol: $key -> $quotes{$symbol, $key}");
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/dws.t 0000755 0001750 0001750 00000004157 14070425453 015167 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Date::Simple qw(today);
use Scalar::Util qw(looks_like_number);
use Date::Range;
use Date::Manip;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %valid = ('848646' => 'Albatros Fonds',
'DE0008486465' => 'Albatros Fonds',
'LU0358627221' => 'Zurich Vorsorge Premium II');
my @invalid = ('BOGUS');
my @symbols = (keys %valid, @invalid);
my $method = 'dwsfunds'; # Name of the target method for testing
my $currency = 'EUR'; # expected quote curreny
my $today = today(); # together with $window, validate date/isodate
my $window = 7; # quote must be within last $window days
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'success' => sub {$_[0] == 1},
'last' => sub {looks_like_number($_[0])},
'name' => sub {$_[0] eq $valid{$_[1]}},
'currency' => sub {$_[0] eq $currency},
'isin' => sub {$_[0] =~ /^[A-Z0-9]{12}$/},
'isodate' => sub {Date::Range->new($today - $window, $today)->includes(Date::Simple::ISO->new($_[0]))},
'date' => sub {my $a = Date::Manip::Date->new(); $a->parse_format('%m/%d/%Y', $_[0]);
my $b = Date::Manip::Date->new(); $b->parse_format('%Y-%m-%d', $_[2]->{$_[1], 'isodate'});
return $a->cmp($b) == 0;}
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + @invalid;
my %quotes = $q->fetch($method, @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> " . (defined $quotes{$symbol, $key} ? $quotes{$symbol, $key} : ''));
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/goldmoney.t 0000755 0001750 0001750 00000004013 14070425453 016356 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if ( not $ENV{ONLINE_TEST} ) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 46;
# Test GoldMoney functions.
my $q = Finance::Quote->new("GoldMoney");
foreach my $currency ( 'EUR', 'USD' ) {
$q->set_currency($currency);
my %quotes =
$q->fetch( "goldmoney", "gold", "silver", "platinum", "BOGUS" );
ok(%quotes);
# Check that sound information is returned for gold, silver and platinum.
ok( $quotes{ "gold", "success" }, 'gold price lookup' );
ok( $quotes{ "gold", "last" } > 0,
"Gold is quoted at " . $quotes{ "gold", "last" } );
ok( $quotes{ "gold", "currency" } eq $currency, "currency is $currency" );
ok( length( $quotes{ "gold", "date" } ) > 0 );
ok( length( $quotes{ "gold", "time" } ) > 0 );
ok( $quotes{ "silver", "success" }, 'silver price lookup' );
ok( $quotes{ "silver", "last" } > 0 );
ok( $quotes{ "silver", "currency" } eq $currency, "currency is $currency" );
ok( length( $quotes{ "silver", "date" } ) > 0 );
ok( length( $quotes{ "silver", "time" } ) > 0 );
ok( $quotes{ "platinum", "success" }, 'platinum price lookup' );
ok( $quotes{ "platinum", "last" } > 0 );
ok( $quotes{ "platinum", "currency" } eq $currency,
"currency is $currency" );
ok( length( $quotes{ "platinum", "date" } ) > 0 );
ok( length( $quotes{ "platinum", "time" } ) > 0 );
my $year = ( localtime() )[5] + 1900;
ok( ( substr( $quotes{ "gold", "isodate" }, 0, 4 ) == $year ) );
ok( ( substr( $quotes{ "gold", "date" }, 6, 4 ) == $year ) );
ok( ( substr( $quotes{ "silver", "isodate" }, 0, 4 ) == $year ) );
ok( ( substr( $quotes{ "silver", "date" }, 6, 4 ) == $year ) );
ok( ( substr( $quotes{ "platinum", "isodate" }, 0, 4 ) == $year ) );
ok( ( substr( $quotes{ "platinum", "date" }, 6, 4 ) == $year ) );
# Check that a bogus symbol returns no-success.
ok( !$quotes{ "BOGUS", "success" } );
}
Finance-Quote-1.51/t/iexcloud.t 0000755 0001750 0001750 00000004451 14070425453 016203 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Date::Simple qw(today);
use Scalar::Util qw(looks_like_number);
use Date::Range;
use Date::Manip;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
if ( not $ENV{"TEST_IEXCLOUD_API_KEY"} ) {
plan skip_all => 'Set $ENV{"TEST_IEXCLOUD_API_KEY"} to run this test';
}
my @valid = qw/MSFT AMZN AAPL GOOGL GOOG FB CSCO INTC CMCSA PEP BRK.A SEB NVR BKNG IBKR/;
my @invalid = ('BOGUS');
my @symbols = (@valid, @invalid);
my $q = Finance::Quote->new('IEXCloud', timeout => 120, iexcloud => {API_KEY => $ENV{"TEST_IEXCLOUD_API_KEY"}} );
my $today = today();
my $window = 7;
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'success' => sub {$_[0] == 1},
'symbol' => sub {$_[0] eq $_[1]},
'last' => sub {looks_like_number($_[0])},
'open' => sub {not defined $_[0] or looks_like_number($_[0])},
'close' => sub {not defined $_[0] or looks_like_number($_[0])},
'high' => sub {not defined $_[0] or looks_like_number($_[0])},
'low' => sub {not defined $_[0] or looks_like_number($_[0])},
'volume' => sub {not defined $_[0] or looks_like_number($_[0])},
'isodate' => sub {Date::Range->new($today - $window, $today)->includes(Date::Simple::ISO->new($_[0]))},
'date' => sub {my $a = Date::Manip::Date->new(); $a->parse_format('%m/%d/%Y', $_[0]);
my $b = Date::Manip::Date->new(); $b->parse_format('%Y-%m-%d', $_[2]->{$_[1], 'isodate'});
return $a->cmp($b) == 0;}
);
plan tests => 1 + %check*@valid + @invalid;
my %quotes = $q->iexcloud(@symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (@valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> " . (defined $quotes{$symbol, $key} ? $quotes{$symbol, $key} : ''));
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/cse.t 0000755 0001750 0001750 00000003325 14070425453 015140 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Scalar::Util qw(looks_like_number);
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %valid = ('JKH.N0000' => 'JOHN KEELLS HOLDINGS PLC',
'ACME.N0000' => 'ACME PRINTING & PACKAGING PLC');
my @invalid = ('BOGUS');
my @symbols = (keys %valid, @invalid);
my $method = 'cse'; # Name of the target method for testing
my $currency = 'LKR'; # expected quote curreny
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'isin' => sub {$_[0] =~ /^[A-Z0-9]{12}$/},
'close' => sub {looks_like_number($_[0])},
'last' => sub {looks_like_number($_[0])},
'high' => sub {looks_like_number($_[0])},
'low' => sub {looks_like_number($_[0])},
'cap' => sub {looks_like_number($_[0])},
'name' => sub {$_[0] eq $valid{$_[1]}},
'currency' => sub {$_[0] =~ /^[A-Z]{3}$/},
'success' => sub {$_[0] == 1}
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + @invalid;
my %quotes = $q->fetch($method, @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> " . (defined $quotes{$symbol, $key} ? $quotes{$symbol, $key} : ''));
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/fq-class-methods.t 0000644 0001750 0001750 00000001646 14070425453 017541 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
plan tests => 7;
use Finance::Quote;
ok(1, "Finance::Quote loaded");
my @target = qw/last high low net bid ask close open day_range year_range eps div cap nav price/;
my @result = Finance::Quote::get_default_currency_fields();
ok( join(",", sort @target) eq join(",", sort @result), "get_default_currency_fields check");
my $timeout = Finance::Quote::get_default_timeout();
ok( !defined $timeout, "check default timeout is undef");
my @methods = Finance::Quote::get_methods();
ok( grep( /alphavantage/, @methods), "check for a known method");
# new tested in fq-object-methods.t
ok( Finance::Quote::scale_field("1023","0.01") eq "10.23", "check scale_field");
Finance::Quote::set_default_timeout(4);
ok( Finance::Quote::get_default_timeout() == 4, "check set/get default timeout");
my $t4 = Finance::Quote->new();
ok( $t4->get_timeout() == 4, "check default timeout was used");
Finance-Quote-1.51/t/comdirect.t 0000755 0001750 0001750 00000004274 14070425453 016343 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Date::Simple qw(today);
use Scalar::Util qw(looks_like_number);
use Date::Range;
use Date::Manip;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %valid = ('VWAGY' => 'Volkswagen ADR',
'Volkswagen' => 'Volkswagen VZ',
'DE0007664039' => 'Volkswagen VZ'
);
my @invalid = ('BOGUS');
my @symbols = (keys %valid, @invalid);
my $method = 'comdirect'; # Name of the target method for testing
my $currency = 'EUR'; # expected quote curreny
my $today = today(); # together with $window, validate date/isodate
my $window = 7; # quote must be within last $window days
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'success' => sub {$_[0] == 1},
'method' => sub {$_[0] eq 'comdirect'},
'open' => sub {not defined $_[0] or looks_like_number($_[0])},
'low' => sub {not defined $_[0] or looks_like_number($_[0])},
'high' => sub {not defined $_[0] or looks_like_number($_[0])},
'last' => sub {not defined $_[0] or looks_like_number($_[0])},
'currency' => sub {$_[0] =~ /^[A-Z]{3}$/},
'name' => sub {$_[0] eq $valid{$_[1]}},
'isin' => sub {$_[0] =~ /^[A-Z0-9]{12}$/},
'isodate' => sub {defined $_[0] and Date::Range->new($today - $window, $today)->includes(Date::Simple::ISO->new($_[0]))},
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + @invalid;
my %quotes = $q->fetch($method, @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> " . (defined $quotes{$symbol, $key} ? $quotes{$symbol, $key} : ''));
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/cdnfundlibrary.t 0000755 0001750 0001750 00000003657 14070425453 017404 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use warnings;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
use Date::Simple qw(today);
use Scalar::Util qw(looks_like_number);
use Date::Range;
use Date::Manip;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %valid = ('NBC887' => 1,
'TDB3533' => 1 );
my @invalid = ('00000');
my @symbols = (keys %valid, @invalid);
my $method = 'fundlibrary'; # Name of the target method for testing
my $currency = 'CAD'; # expected quote curreny
my $today = today(); # together with $window, validate date/isodate
my $window = 7; # quote must be within last $window days
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'success' => sub {$_[0] == 1},
'currency' => sub {$_[0] =~ /^[A-Z]{3}$/},
'last' => sub {looks_like_number($_[0])},
'isodate' => sub {Date::Range->new($today - $window, $today)->includes(Date::Simple::ISO->new($_[0]))},
'date' => sub {my $a = Date::Manip::Date->new(); $a->parse_format('%m/%d/%Y', $_[0]);
my $b = Date::Manip::Date->new(); $b->parse_format('%Y-%m-%d', $_[2]->{$_[1], 'isodate'});
return $a->cmp($b) == 0;}
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + @invalid;
my %quotes = $q->fetch($method, @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes), "$key -> " . (defined $quotes{$symbol, $key} ? $quotes{$symbol, $key} : ''));
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/onvista.t 0000755 0001750 0001750 00000002476 14070425453 016057 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{'ONLINE_TEST'}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my $q = Finance::Quote->new('OnVista');
my @valid = qw/MRK AAPL SAP/;
my @invalid = qw/BOGUS/;
my @symbols = (@valid, @invalid);
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
plan tests => 1 + 7*@valid + @invalid;
my %quotes = $q->onvista(@symbols);
ok(%quotes);
foreach my $symbol (@valid) {
ok($quotes{$symbol, 'success'}, "$symbol success");
ok(defined $quotes{$symbol, 'name'}, "$symbol returned name as $quotes{$symbol, 'name'}");
ok(defined $quotes{$symbol, 'currency'}, "$symbol returned currency as $quotes{$symbol, 'currency'}");
ok(defined $quotes{$symbol, 'method'}, "$symbol returned method as $quotes{$symbol, 'method'}");
ok(defined $quotes{$symbol, 'exchange'}, "$symbol returned exchange as $quotes{$symbol, 'exchange'}");
ok(defined $quotes{$symbol, 'time'}, "$symbol returned time as $quotes{$symbol, 'time'}");
ok((substr($quotes{$symbol, 'isodate'}, 0, 4) == $year or
substr($quotes{$symbol, 'isodate'}, 0, 4) == $lastyear), "$symbol returned isodate as $quotes{$symbol, 'isodate'}");
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/bloomberg.t 0000755 0001750 0001750 00000002000 14070425453 016323 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{'ONLINE_TEST'}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my $q = Finance::Quote->new('Bloomberg');
my @valid = qw/MSFT:US AMZN:US AAPL:US GOOGL:US FB:US/;
my @invalid = qw/BOGUS/;
my @symbols = (@valid, @invalid);
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
plan tests => 1 + 4*@valid + @invalid;
my %quotes = $q->bloomberg(@symbols);
ok(%quotes);
foreach my $symbol (@valid) {
ok($quotes{$symbol, 'success'}, "$symbol success");
ok($quotes{$symbol, 'symbol'} eq $symbol, "$symbol defined");
ok($quotes{$symbol, 'last'} > 0, "$symbol returned last as $quotes{$symbol, 'last'}");
ok((substr($quotes{$symbol, 'isodate'}, 0, 4) == $year or
substr($quotes{$symbol, 'isodate'}, 0, 4) == $lastyear), "$symbol returned isodate as $quotes{$symbol, 'isodate'}");
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/yahoojson.t 0000644 0001750 0001750 00000004677 14070425453 016407 0 ustar bschuck bschuck #!/usr/bin/perl -w
# A test script to check for working of the YahooJSON module.
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 67;
my $q = Finance::Quote->new();
#List of stocks to fetch. Feel free to change this during testing
my @stocks =
( "SUZLON.BO", "RECLTD.NS", "AMZN", "SOLB.BR", "^DJI", "BEL20.BR", "INGDIRECTFNE.BC", "AENA.MC", "CFR.JO" );
my %quotes = $q->fetch( "yahoo_json", @stocks );
ok( %quotes, "Data returned" );
foreach my $stock (@stocks) {
my $name = $quotes{ $stock, "name" };
ok( $quotes{ $stock, "success" }, "Retrieved $stock" );
if ( !$quotes{ $stock, "success" } ) {
my $errmsg = $quotes{ $stock, "errormsg" };
warn "Error Message:\n$errmsg\n";
}
else {
ok( $name, "Name is defined : $name" );
my $exchange = $quotes{ $stock, "exchange" };
ok( $exchange eq 'Sourced from Yahoo Finance (as JSON)',
"correctly retrieved through YahooJSON" );
my $fetch_method = $quotes{ $stock, "method" };
ok( $fetch_method eq 'yahoo_json', "fetch_method is yahoo_json" );
my $last = $quotes{ $stock, "last" };
ok( $last > 0, "Last $last > 0" );
my $volume = $quotes{ $stock, "volume" };
ok( $volume > 0, "Volume $volume > 0" ) if !( grep { $_ eq $stock } ("BEL20.BR","INGDIRECTFNE.BC") );
my $type = $quotes{ $stock, "type" };
ok( $type, "Symbol type $type" );
#TODO: Add a test to raise a warning if the quote is excessively old
my $isodate = $quotes{ $stock, "isodate" };
# print "ISOdate: $isodate ";
my $date = $quotes{ $stock, "date" };
# currency for .BO stocks
ok( $quotes { $stock, "currency" } eq 'INR', 'Bombay stocks have currency INR' ) if $stock =~ /\.BO$/ ;
ok( $quotes { $stock, "currency" } eq 'EUR', 'Barcelona stocks have currency EUR' ) if $stock =~ /\.BC$/ ;
ok( $quotes { $stock, "currency" } eq 'EUR', 'Madrid stocks have currency EUR' ) if $stock =~ /\.MC$/ ;
# currency for .JO (Johannesburg Stock Exchange) stocks
ok( $quotes { $stock, "currency" } eq 'ZAR', 'Johannesburg stocks have currency ZAR' ) if $stock =~ /\.JO$/ ;
# print "Date: $date ";
}
}
# Check that a bogus stock returns no-success.
%quotes = $q->fetch( "yahoo_json", "BOGUS" );
ok( !$quotes{ "BOGUS", "success" }, "BOGUS failed" );
Finance-Quote-1.51/t/03-kwalitee.t 0000755 0001750 0001750 00000000436 14070425453 016413 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
if (not $ENV{TEST_AUTHOR}) {
plan( skip_all => 'Author test. Set $ENV{TEST_AUTHOR} to true to run.');
}
eval { require Test::Kwalitee; Test::Kwalitee->import() };
plan( skip_all => 'Test::Kwalitee not installed; skipping' ) if $@;
Finance-Quote-1.51/t/ukfunds.t 0000644 0001750 0001750 00000001437 14070425453 016044 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 8;
my $q = Finance::Quote->new();
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my %quotes = $q->ukfunds("GB0031835118","GB0030880032","LU0116926998","BOGUS");
ok(%quotes);
# Check the last values are defined. These are the most
# used and most reliable indicators of success.
ok($quotes{"GB0031835118","last"} > 0);
ok($quotes{"GB0031835118","success"});
ok($quotes{"GB0030880032","last"} > 0);
ok($quotes{"GB0030880032","success"});
ok($quotes{"LU0116926998","last"} > 0);
ok($quotes{"LU0116926998","success"});
# Check that bogus stocks return failure:
ok(! $quotes{"BOGUS","success"});
Finance-Quote-1.51/t/fondsweb.t 0000755 0001750 0001750 00000003150 14070425453 016171 0 ustar bschuck bschuck #!/usr/bin/perl -w
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, Smart::Comments;
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my $q = Finance::Quote->new();
my @valid = ('LU0804734787');
my @invalid = qw/BOGUS/;
my @symbols = (@valid, @invalid);
my $year = (localtime())[5] + 1900;
my %check = (
'currency' => sub { $_[0] =~ /^[A-Z]+$/ },
'date' => sub { $_[0] =~ m{^[0-9]{2}/[0-9]{2}/([0-9]{4})$} and ($1 == $year || $1 == $year + 1) },
'isin' => sub { $_[0] =~ /^[A-Z]{2}[0-9]{10}$/ },
'isodate' => sub { $_[0] =~ /^([0-9]{4})-[0-9]{2}-[0-9]{2}$/ and ($1 == $year || $1 == $year + 1) },
'last' => sub { $_[0] =~ /^[0-9.]+$/ },
'method' => sub { $_[0] =~ /^fondsweb$/ },
'name' => sub { length($_[0]) },
'nav' => sub { $_[0] =~ /^[0-9.]+$/ },
'success' => sub { $_[0] },
'type' => sub { $_[0] eq 'fund' },
'year_range' => sub { $_[0] =~ /^[0-9.]+\s*-\s*[0-9.]+$/ },
);
plan tests => 1 + %check*@valid + @invalid;
my %quotes = $q->fetch('fondsweb', @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (@valid) {
while (my ($key, $lambda) = each %check) {
ok($lambda->($quotes{$symbol, $key}, $symbol), "$key -> $quotes{$symbol, $key}");
}
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/02-pod-coverage.t 0000755 0001750 0001750 00000000362 14070425453 017156 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Test::Pod::Coverage 1.00;
if (not $ENV{TEST_AUTHOR}) {
plan( skip_all => 'Author test. Set $ENV{TEST_AUTHOR} to true to run.');
}
plan tests => 1;
pod_coverage_ok("Finance::Quote");
Finance-Quote-1.51/t/fool.t 0000755 0001750 0001750 00000002565 14070425453 015332 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if ( not $ENV{"ONLINE_TEST"} ) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my $q = Finance::Quote->new();
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my @symbols = qw/MSFT AMZN AAPL GOOGL GOOG FB CSCO INTC PEP BRK-A SEB NVR BKNG IBKR/;
plan tests => 11*(1+$#symbols)+2;
my %quotes = $q->fool(@symbols, "BOGUS");
ok(%quotes);
foreach my $symbol (@symbols) {
ok($quotes{$symbol, "symbol"} eq $symbol, "$symbol defined");
ok($quotes{$symbol, "success"}, "$symbol success");
ok($quotes{$symbol, "day_range"} =~ m/^[0-9.]+\s*-\s*[0-9.]+$/, "$symbol returned day_range");
ok($quotes{$symbol, "open"} > 0, "$symbol returned open");
ok($quotes{$symbol, "volume"} >= 0, "$symbol returned volume");
ok($quotes{$symbol, "close"} > 0, "$symbol returned close");
ok($quotes{$symbol, "year_range"} =~ m/^[0-9.]+\s*-\s*[0-9.]+$/, "$symbol returned year_range");
ok($quotes{$symbol, "last"} > 0, "$symbol returned last");
ok($quotes{$symbol, "currency"} eq 'USD', "$symbol returned currency");
ok(substr($quotes{$symbol, "isodate"}, 0, 4) == $year
|| substr($quotes{$symbol, "isodate"}, 0, 4) == $lastyear);
ok(substr($quotes{$symbol, "date"}, 6, 4) == $year
||substr($quotes{$symbol, "date"}, 6, 4) == $lastyear);
}
ok(!$quotes{"BOGUS", "success"});
Finance-Quote-1.51/t/indiamutual.t 0000755 0001750 0001750 00000002045 14070425453 016700 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
# Test IndiaMutual functions.
my $q = Finance::Quote->new();
my @funds = ("102676", "103131", "101599",
"INF194K01W88", "INF090I01FN7", "INF082J01127");
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
plan tests => 6*@funds + 2;
my %quotes = $q->fetch("indiamutual", @funds);
ok(%quotes);
# Check that the name and nav are defined for all of the funds.
foreach my $fund (@funds) {
ok($quotes{$fund,"nav"} > 0);
ok(length($quotes{$fund,"name"}));
ok($quotes{$fund,"success"});
ok($quotes{$fund, "currency"} eq "INR");
ok(substr($quotes{$fund,"isodate"},0,4) == $year ||
substr($quotes{$fund,"isodate"},0,4) == $lastyear);
ok(substr($quotes{$fund,"date"},6,4) == $year ||
substr($quotes{$fund,"date"},6,4) == $lastyear);
}
# Check that a bogus fund returns no-success.
%quotes = $q->fetch("indiamutual", "BOGUS");
ok(! $quotes{"BOGUS","success"});
Finance-Quote-1.51/t/currency-openexchange.t 0000644 0001750 0001750 00000003263 14070425453 020660 0 ustar bschuck bschuck #!/usr/bin/perl -w
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, Smart::Comments, '###';
use strict;
use Test::More;
use Finance::Quote;
use Scalar::Util qw(looks_like_number);
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
sub module_check
{
my ($module, $valid, $invalid, $options) = @_;
plan tests => 1 + 2*@{$valid} + @{$invalid};
my $hash = {order => [$module]};
$hash->{lc($module)} = $options if defined $options;
my $q = Finance::Quote->new('currency_rates' => $hash);
ok($q);
foreach my $test (@{$valid}) {
my ($from, $to) = @{$test};
my $v = $q->currency($from, $to);
ok(looks_like_number($v), "$from -> $to = $v");
my ($from_amount, $from_code) = $from =~ m/^([0-9.]+) ([A-Z]+)$/;
SKIP: {
skip "identity check because different currencies", 1 unless $from_code eq $to;
my ($suffix) = $from_amount =~ m/[.]([0-9]+)/;
my $string = sprintf("%.*f", length($suffix), $v);
ok($from_amount eq $string, "identity check");
};
}
foreach my $test (@{$invalid}) {
my ($from, $to) = @{$test};
my $v = $q->currency($from, $to);
is($v, undef, "$from -> $to failed as expected");
}
}
plan tests => 1;
subtest 'OpenExchange' => sub {
if ( not $ENV{TEST_OPENEXCHANGE_API_KEY} ) {
plan skip_all =>
'Set $ENV{TEST_OPENEXCHANGE_API_KEY} to run this test; get one at https://openexchangerates.org';
}
my @valid = (['100.00 USD', 'EUR'], ['1.00 GBP', 'IDR'], ['1.23 IDR', 'CAD'], ['10.00 AUD', 'AUD']);
my @invalid = (['20.12 ZZZ', 'GBP']);
module_check('OpenExchange', \@valid, \@invalid, {cache => 1, API_KEY => $ENV{TEST_OPENEXCHANGE_API_KEY}});
};
Finance-Quote-1.51/t/oslobors.t 0000755 0001750 0001750 00000001767 14070425453 016240 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my $q = Finance::Quote->new();
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
plan tests => 17;
my @funds = ("OD-HORIA.OSE", "DK-EUROP.OSE", "ST-VEKST.OSE");
my %quotes = $q->fetch("Oslobors", @funds);
ok(%quotes, "Data fetched");
foreach my $symbol (@funds) {
ok($quotes{ $symbol, "success"}, "Retrieved $symbol");
ok($quotes{ $symbol, "price"} ne "", "Price is defined");
ok($quotes{ $symbol, "currency"} eq "NOK", "Currency is set to NOK");
my $isoyear = substr($quotes{$symbol, "isodate"}, 0, 4);
my $dateyear = substr($quotes{$symbol, "date"}, 6, 4);
ok($isoyear == $year || $isoyear == $lastyear, "ISODate is this or last year");
ok($dateyear == $year || $dateyear == $lastyear, "Date is this or last year");
}
%quotes = $q->fetch("oslobors", "BOGUS");
ok( !$quotes{"BOGUS", "success"}, "BOGUS failed");
Finance-Quote-1.51/t/fundata.t 0000755 0001750 0001750 00000002077 14070425453 016013 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 16;
# Test Fundata functions.
my $q = Finance::Quote->new();
my @stocks = ("301871", "234263");
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my %quotes = $q->fetch("fundata", @stocks);
ok(%quotes);
# Check that the symbol and nav are defined for all of the stocks.
foreach my $stock (@stocks) {
ok($quotes{$stock,"nav"} > 0);
ok(length($quotes{$stock,"name"}));
ok(length($quotes{$stock,"symbol"}));
ok($quotes{$stock,"success"});
ok(substr($quotes{$stock,"isodate"},0,4) == $year ||
substr($quotes{$stock,"isodate"},0,4) == $lastyear);
ok(substr($quotes{$stock,"date"},6,4) == $year ||
substr($quotes{$stock,"date"},6,4) == $lastyear);
}
ok($quotes{"301871", "currency"} eq "CAD");
ok($quotes{"234263", "currency"} eq "CAD");
# Check that a bogus stock returns no-success.
%quotes = $q->fetch("fundata", "BOGUS");
ok(! $quotes{"BOGUS","success"}, "BOGUS failed");
Finance-Quote-1.51/t/asegr.t 0000755 0001750 0001750 00000004543 14070425453 015472 0 ustar bschuck bschuck #!/usr/bin/perl -w
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, Smart::Comments;
use strict;
use Test::More;
use Finance::Quote;
use Date::Simple qw(today);
use Scalar::Util qw(looks_like_number);
use Date::Range;
use Date::Manip;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my %skip = ('bond' => {'high' => 1, 'low' => 1},
'derivative' => {'isin' => 1},
'index' => {'isin' => 1});
my %valid = ('CRETA' => 'stock',
'KYLO' => 'stock',
'ALPHA21U0.80' => 'derivative',
'AETF' => 'etf',
'FORTHB1' => 'bond',
'OPAPB2' => 'bond',
'FTSE' => 'index',
'G210120A2' => 'bond'
);
my %invalid = ('BOGUS' => undef);
my @symbols = (keys %valid, keys %invalid);
my $today = today();
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'close' => sub {looks_like_number($_[0])},
'volume' => sub {looks_like_number($_[0])},
'high' => sub {looks_like_number($_[0])},
'low' => sub {looks_like_number($_[0])},
'isin' => sub {defined $_[0]},
'isodate' => sub {Date::Range->new($today - 7, $today)->includes(Date::Simple::ISO->new($_[0]))},
'date' => sub {my $a = Date::Manip::Date->new(); $a->parse_format('%m/%d/%Y', $_[0]);
my $b = Date::Manip::Date->new(); $b->parse_format('%Y-%m-%d', $_[2]->{$_[1], 'isodate'});
return $a->cmp($b) == 0;},
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + %invalid;
my %quotes = $q->asegr(@symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
SKIP: {
skip "$key not required for $symbol", 1 if exists $skip{$valid{$symbol}}->{$key};
ok((defined $quotes{$symbol, $key} and $lambda->($quotes{$symbol, $key}, $symbol, \%quotes)),
(defined $quotes{$symbol, $key} ? "$key -> $quotes{$symbol, $key}" : "$key -> "));
};
}
}
foreach my $symbol (keys %invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/ftfunds.t 0000644 0001750 0001750 00000002145 14070425453 016033 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 12;
my $q = Finance::Quote->new();
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my %quotes = $q->ftfunds("GB0031835118","GB0030880255","GB0003865176","GB00B7W6PR65","BOGUS");
ok(%quotes);
# Check the last values are defined. These are the most
# used and most reliable indicators of success.
ok($quotes{"GB0031835118","last"} > 0);
ok($quotes{"GB0031835118","success"});
ok($quotes{"GB00B7W6PR65","last"} > 0);
ok($quotes{"GB00B7W6PR65","success"});
ok($quotes{"GB00B7W6PR65","currency"} eq "GBP", "Currency (GBP) for GB00B7W6PR65 is ".$quotes{"GB00B7W6PR65","currency"});
ok($quotes{"GB00B7W6PR65","price"}<100,"Price for GB00B7W6PR65 < 100 : ".$quotes{"GB00B7W6PR65","price"});
ok($quotes{"GB0030880255","last"} > 0);
ok($quotes{"GB0030880255","success"});
ok($quotes{"GB0003865176","last"} > 0);
ok($quotes{"GB0003865176","success"});
# Check that bogus stocks return failure:
ok(! $quotes{"BOGUS","success"});
Finance-Quote-1.51/t/bseindia.t 0000755 0001750 0001750 00000001746 14070425453 016151 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 22;
# Test BSEIndia functions.
my $q = Finance::Quote->new();
my @stocks = ("500010", "532540", "INE009A01021", "INE062A01020");
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my %quotes = $q->fetch("bseindia", @stocks);
ok(%quotes);
# Check that the name and last are defined for all of the stocks.
foreach my $stock (@stocks) {
ok($quotes{$stock, "last"} > 0);
ok($quotes{$stock, "success"});
ok($quotes{$stock, "currency"} eq "INR");
ok(substr($quotes{$stock,"isodate"},0,4) == $year ||
substr($quotes{$stock,"isodate"},0,4) == $lastyear);
ok(substr($quotes{$stock,"date"},6,4) == $year ||
substr($quotes{$stock,"date"},6,4) == $lastyear);
}
# Check that a bogus fund returns no-success.
%quotes = $q->fetch("bseindia", "BOGUS");
ok(! $quotes{"BOGUS","success"});
Finance-Quote-1.51/t/currency_lookup.t 0000755 0001750 0001750 00000003526 14070425453 017614 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More tests => 12;
use Finance::Quote;
# Test overall currency lookup
my $currencies = Finance::Quote::currency_lookup();
my %test_currencies = ( AUD => "Australian Dollar"
, EUR => "Euro"
, CAD => "Canadian Dollar"
);
while ( my ($code, $name) = each %test_currencies ) {
ok( exists $currencies->{$code}, "Expected currency code (${code}) exists" );
is( $currencies->{$code}->{name}
, $name
, "Expected currency name (${name}) for code (${code})"
);
}
# Test selective currency lookup
$currencies = Finance::Quote::currency_lookup( name => qr/pound/i );
# Test multiple lookup parameters
$currencies = Finance::Quote::currency_lookup( name => "Australia"
, code => qr/AU/ );
ok( exists $currencies->{AUD}
, "Expected currency code (AUD) exists for matching multiple params" );
cmp_ok( scalar keys %{$currencies}, '==', 1
, "Only one currency returned for matching multiple params"
);
$currencies = Finance::Quote::currency_lookup( name => "Euro"
, code => "AUD" );
cmp_ok( scalar keys %{$currencies}, '==', 0
, "Expected zero-response for non-matching multiple params"
);
# Test non-matching currency lookup
$currencies = Finance::Quote::currency_lookup( name => qr/rubbish_value/i );
is( ref $currencies
, 'HASH'
, 'Hash-ref returned for non-matching lookup'
);
cmp_ok( scalar keys %{$currencies}
, '==', 0
, "Empty hashref returned for non-matching lookup"
);
# Suppress warning message in last test
local $SIG{__WARN__} = sub {};
# Test that an error returns undef
$currencies = Finance::Quote::currency_lookup( invalid_param => 1 );
is( $currencies
, undef
, "Error results in undef response"
);
Finance-Quote-1.51/t/hu.t 0000644 0001750 0001750 00000005117 14070425453 015000 0 ustar bschuck bschuck #!/usr/bin/perl -w
#
# HU.pm
#
# Version 0.1 - test of Hungarian (HU) F::Q
# This version based on za.t module
#
# Zoltan Levardy
# 2009
# 2019-06-22: Removed failing fund, replaced with HU0000705280.
# Surrounded failing equity check for OTP in a TODO block.
# Bruce Schuck
use strict;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
use Test::More;
use Finance::Quote;
if ( not $ENV{ONLINE_TEST} ) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 21;
# Test za functions.
my $q = Finance::Quote->new("HU");
my $year = ( localtime() )[5] + 1900;
my $lastyear = $year - 1;
# getting quotes for shares by ticker (OTP, MTELEKOM)
# funds by ISIN (HU0000702709,HU0000706437)
# and finally an incorrect ticker/isin is ZOL, must fail.
my %quotes = $q->hu( "OTP", "HU0000705280", "HU0000702709", "ZOL" );
ok(%quotes);
### quotes : %quotes
# Check that the last and date values are defined.
ok( $quotes{ "OTP", "success" } );
ok( $quotes{ "OTP", "last" } > 0 );
ok( length( $quotes{ "OTP", "date" } ) > 0 );
ok( substr( $quotes{ "OTP", "isodate" }, 0, 4 ) == $year
|| substr( $quotes{ "OTP", "isodate" }, 0, 4 ) == $lastyear );
ok( substr( $quotes{ "OTP", "date" }, 6, 4 ) == $year
|| substr( $quotes{ "OTP", "date" }, 6, 4 ) == $lastyear );
ok( $quotes{ "OTP", "currency" } eq "HUF" );
# MKB HUF Liquidity Fund: HU0000705280
ok( $quotes{ "HU0000705280", "success" } );
ok( $quotes{ "HU0000705280", "last" } > 0 );
ok( length( $quotes{ "HU0000705280", "date" } ) > 0 );
ok( substr( $quotes{ "HU0000705280", "isodate" }, 0, 4 ) == $year
|| substr( $quotes{ "HU0000705280", "isodate" }, 0, 4 ) == $lastyear );
ok( substr( $quotes{ "HU0000705280", "date" }, 6, 4 ) == $year
|| substr( $quotes{ "HU0000705280", "date" }, 6, 4 ) == $lastyear );
ok( $quotes{ "HU0000705280", "currency" } eq "HUF" );
# Fund: Budapest II, isin: HU0000702709
ok( $quotes{ "HU0000702709", "success" } );
ok( $quotes{ "HU0000702709", "last" } > 0 );
ok( length( $quotes{ "HU0000702709", "date" } ) > 0 );
ok( substr( $quotes{ "HU0000702709", "isodate" }, 0, 4 ) == $year
|| substr( $quotes{ "HU0000702709", "isodate" }, 0, 4 ) == $lastyear );
ok( substr( $quotes{ "HU0000702709", "date" }, 6, 4 ) == $year
|| substr( $quotes{ "HU0000702709", "date" }, 6, 4 ) == $lastyear );
ok( $quotes{ "HU0000702709", "currency" } eq "HUF" );
# Check that a ZOL fund returns no-success.
ok( !$quotes{ "ZOL", "success" } );
ok( $quotes{ "ZOL", "errormsg" } eq "Fetch from bse or bamosz failed" );
Finance-Quote-1.51/t/author-pod-syntax.t 0000644 0001750 0001750 00000000454 14070425453 017771 0 ustar bschuck bschuck #!perl
BEGIN {
unless ($ENV{AUTHOR_TESTING}) {
print qq{1..0 # SKIP these tests are for testing by the author\n};
exit
}
}
# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
use strict; use warnings;
use Test::More;
use Test::Pod 1.41;
all_pod_files_ok();
Finance-Quote-1.51/t/nseindia.t 0000755 0001750 0001750 00000001741 14070425453 016160 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 22;
# Test NSEIndia functions.
my $q = Finance::Quote->new();
my @stocks = ("HDFC", "TCS", "INE009A01021", "INE062A01020");
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my %quotes = $q->fetch("nseindia", @stocks);
ok(%quotes);
# Check that the name and last are defined for all of the stocks.
foreach my $stock (@stocks) {
ok($quotes{$stock, "last"} > 0);
ok($quotes{$stock, "success"});
ok($quotes{$stock, "currency"} eq "INR");
ok(substr($quotes{$stock,"isodate"},0,4) == $year ||
substr($quotes{$stock,"isodate"},0,4) == $lastyear);
ok(substr($quotes{$stock,"date"},6,4) == $year ||
substr($quotes{$stock,"date"},6,4) == $lastyear);
}
# Check that a bogus fund returns no-success.
%quotes = $q->fetch("nseindia", "BOGUS");
ok(! $quotes{"BOGUS","success"});
Finance-Quote-1.51/t/currencies.t 0000755 0001750 0001750 00000000767 14070425453 016537 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote::Currencies;
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 1;
my $known_currencies
= eval { Finance::Quote::Currencies::known_currencies() };
my $live_currencies
= eval { Finance::Quote::Currencies::fetch_live_currencies() };
is_deeply( $known_currencies
, $live_currencies
, "Stored currency list is up to date with live currency list"
);
Finance-Quote-1.51/t/morningstarau.t 0000644 0001750 0001750 00000003255 14070425453 017256 0 ustar bschuck bschuck #!/usr/bin/perl -w
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, Smart::Comments;
use strict;
use warnings;
use Scalar::Util qw(looks_like_number);
use Finance::Quote;
use Test::More;
use Time::Piece;
use feature 'say';
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 30;
my $now = localtime;;
my $a_year_ago = $now->add_years(-1);
my %valid_funds = (
'BFL0002AU' => 'Bennelong Concentrated Australian Eq',
'IML0004AU' => 'Investors Mutual All Industrials Share',
'FID0021AU' => 'Fidelity Australian Opportunities',
);
my $invalid_fund = 'BOGUS';
my @all_funds = (keys %valid_funds, $invalid_fund);
# Invoke test subject
my $q = Finance::Quote->new();
my %quotes = $q->morningstarau(@all_funds);
ok(%quotes);
### Quotes: %quotes
# Check the valid funds
foreach my $symbol (keys %valid_funds) {
my $fund_name = $valid_funds{$symbol};
say "Testing $symbol with name '${fund_name}'";
ok($quotes{$symbol,'currency'} eq 'AUD');
my $date = Time::Piece->strptime(($quotes{$symbol,"date"},'%m/%d/%Y'));
ok($date >= $a_year_ago);
is($quotes{$symbol,'errormsg'}, undef);
my $isodate = Time::Piece->strptime(($quotes{$symbol,"isodate"},'%Y-%m-%d'));
ok($isodate >= $a_year_ago);
ok($quotes{$symbol,'name'} eq $fund_name);
ok($quotes{$symbol,'symbol'} eq $symbol);
ok($quotes{$symbol,'method'} eq 'morningstarau');
my $price = $quotes{$symbol,'price'} ;
ok(looks_like_number($price) && $price > 0);
ok($quotes{$symbol,'success'});
}
# Check that an invalid fund returns failure:
ok(!$quotes{$invalid_fund,"success"});
ok($quotes{$invalid_fund,"errormsg"} ne '');
Finance-Quote-1.51/t/mstaruk.t 0000644 0001750 0001750 00000001433 14070425453 016047 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
plan tests => 6;
my $q = Finance::Quote->new();
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
my %quotes = $q->mstaruk("GB0031835118","GB0030880032","BOGUS");
ok(%quotes);
### quotes : %quotes
# Check the last values are defined. These are the most
# used and most reliable indicators of success.
ok($quotes{"GB0031835118","last"} > 0);
ok($quotes{"GB0031835118","success"});
ok($quotes{"GB0030880032","last"} > 0);
ok($quotes{"GB0030880032","success"});
# Check that bogus stocks return failure:
ok(! $quotes{"BOGUS","success"});
Finance-Quote-1.51/t/seb.t 0000755 0001750 0001750 00000002355 14070425453 015141 0 ustar bschuck bschuck #!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';
if (not $ENV{ONLINE_TEST}) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
my $q = Finance::Quote->new();
my @valid = ("SEB Auto Hållbar 100", "SEB Life - Ethical Global Index");
my @invalid = qw/BOGUS/;
my @symbols = (@valid, @invalid);
my $year = (localtime())[5] + 1900;
my $lastyear = $year - 1;
plan tests => 1 + 5*@valid + @invalid;
my %quotes = $q->seb_funds(@symbols);
ok(%quotes);
### quotes : %quotes
foreach my $symbol (@valid) {
ok($quotes{$symbol, 'success'}, "$symbol success");
ok($quotes{$symbol, 'price'} > 0, "$symbol returned price as $quotes{$symbol, 'price'}");
ok(defined $quotes{$symbol, 'name'}, "$symbol returned name as $quotes{$symbol, 'name'}");
ok($quotes{$symbol, 'currency'} eq "SEK", "$symbol returned currency as $quotes{$symbol, 'currency'}");
ok((substr($quotes{$symbol, 'isodate'}, 0, 4) == $year or
substr($quotes{$symbol, 'isodate'}, 0, 4) == $lastyear), "$symbol returned isodate as $quotes{$symbol, 'isodate'}");
}
foreach my $symbol (@invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/t/bourso.t 0000755 0001750 0001750 00000010305 14070425453 015673 0 ustar bschuck bschuck #!/usr/bin/perl -w
use constant DEBUG => $ENV{DEBUG};
use if DEBUG, Smart::Comments;
use strict;
use Test::More;
use Finance::Quote;
use Scalar::Util qw(looks_like_number);
use Date::Simple qw(today);
use Date::Range;
use Date::Manip;
if ( not $ENV{ONLINE_TEST} ) {
plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
}
# Bourso tests need to cover all the possible cases:
#
# Name What Test Case
#
# action Stock 1rPAF, MSFT, FF11-SOLB, 1rPSOLB, 1rPCNP
# obligation Bond 1rPFR0010371401
# opcvm Fund MP-802941
# warrant Warrant 1rAHX70B - expired & removed from tests
# indice Index 1rPCAC
# tracker Tracker 1rTBX4
my %valid = ('MP-802941' => {currency => 'EUR', days => 32, name => 'Covéa Actions Asie C'}, # Fund, EUR
'1rPAF' => {currency => 'EUR', days => 7, name => 'AIR FRANCE-KLM'}, # Stock, EUR, Euronext Paris
'MSFT' => {currency => 'USD', days => 7, name => 'MICROSOFT'}, # Stock, USD, NASDAQ
'FF11-SOLB' => {currency => 'EUR', days => 7, name => 'SOLVAY'}, # Stock, EUR, Euronext Bruxelles
'1rPCNP' => {currency => 'EUR', days => 7, name => 'CNP ASSURANCES'}, # Stock, EUR, Euronext Paris
'2rPDE000CX0QLH6' => {currency => 'EUR', days => 7, name => 'GOLD/CITI WT OPEN'}, # Warrant
'1rPFR0010371401' => {currency => '%' , days => 100, name => 'FRENCH REPUBLIC 4% 25/10/38 EUR'}, # Bond, EUR, Euronext Paris,
'1rPCAC' => {currency => 'Pts', days => 7, name => 'CAC 40'}, # Index, Pts, Paris,
'1rTBX4' => {currency => 'EUR', days => 7, name => 'LYXOR ETF BX4'}, # Tracker, EUR
);
my %invalid = ('BOGUS' => undef);
my @symbols = (keys %valid, keys %invalid);
my $today = today();
my %check = (# Tests are called with (value_to_test, symbol, quote_hash_reference)
'name' => sub {$valid{$_[1]}{name} eq $_[0]}, # @_ = (value, symbol)
'currency' => sub {$valid{$_[1]}{currency} eq $_[0]}, #
'method' => sub {$_[0] eq 'bourso'}, #
'success' => sub {$_[0]}, #
'volume' => sub {defined $_[0] ? looks_like_number($_[0]) : 1}, # volume is optional
'close' => sub {defined $_[0] ? looks_like_number($_[0]) : 1}, # close is optional
'last' => sub {looks_like_number($_[0])}, # last is REQUIRED
'high' => sub {defined $_[0] ? looks_like_number($_[0]) : 1}, # high is optional
'low' => sub {defined $_[0] ? looks_like_number($_[0]) : 1}, # low is optional
'net' => sub {defined $_[0] ? looks_like_number($_[0]) : 1}, # net is optional
'exchange' => sub {defined $_[0] ? $_[0] =~ /^[A-Z]+$/ : 1}, # exchange is optional
'isodate' => sub {Date::Range->new($today - $valid{$_[1]}{days}, $today)->includes(Date::Simple::ISO->new($_[0]))},
'date' => sub {my $a = Date::Manip::Date->new(); $a->parse_format('%m/%d/%Y', $_[0]);
my $b = Date::Manip::Date->new(); $b->parse_format('%Y-%m-%d', $_[2]->{$_[1], 'isodate'});
return $a->cmp($b) == 0;},
);
my $q = Finance::Quote->new();
plan tests => 1 + %check*%valid + %invalid;
my %quotes = $q->fetch('bourso', @symbols);
ok(%quotes);
### [] quotes: %quotes
foreach my $symbol (keys %valid) {
while (my ($key, $lambda) = each %check) {
### check key: $key
### check res: $quotes{$symbol, $key}
ok($lambda->($quotes{$symbol, $key}, $symbol, \%quotes),
defined $quotes{$symbol, $key}
? "$key -> $quotes{$symbol, $key}"
: "$key -> ");
}
}
foreach my $symbol (keys %invalid) {
ok((not $quotes{'BOGUS', 'success'}), 'failed as expected');
}
Finance-Quote-1.51/Documentation/ 0000775 0001750 0001750 00000000000 14070425453 016543 5 ustar bschuck bschuck Finance-Quote-1.51/Documentation/Release.md 0000644 0001750 0001750 00000002301 14070425453 020437 0 ustar bschuck bschuck # Procedure for a CPAN release
---
## FINALIZE DEVELOPMENT
* finalize dev branch merges
* check for debug code in modules
* Modify Changelog
* Add missing authors to dist.ini (use git shortlog -s -n -e and select everyone with at least 2 commits)
* Update htdocs/index.html (Sourceforge project home page)
* push all commits up to github
* dzil build - build a new release
* dzil test - test it out
## RELEASE
In order to upload files to PAUSE/CPAN and Sourceforge, the team member must have accounts with the proper privileges on those services. For PAUSE that is co-maint and for Sourceforge the user must be in the Admin group.
* dzil release - upload to cpan, tweet and mail :)
* upload module tarball to sourceforge @ https://sourceforge.net/projects/finance-quote/files/finance-quote/
* Through Web interface
* Or sftp \@frs.sourceforge.net
* cd /home/frs/project/finance-quote/finance-quote
* put Finance-Quote-N.NN.tar.gz
* bye
* Upload index.html for http://finance-quote.sourceforge.net/index.html
* sftp \,finance-quote@web.sourceforge.net
* cd /home/project-web/finance-quote/htdocs
* put index.html
* bye
Finance-Quote-1.51/Documentation/Release.txt 0000644 0001750 0001750 00000001722 14070425453 020664 0 ustar bschuck bschuck Procedure for a CPAN release
----------------------------
* FINALIZE DEVELOPMENT
** finalize dev branch merges
** check for debug code in modules
** Modify Changelog
** Add missing authors to dist.ini (use git shortlog -s -n -e and select everyone with at least 2 commits)
** push all commits up to github
** dzil build - build a new release
** dzil test - test it out
* RELEASE
** dzil release - upload to cpan, tweet and mail :)
** Update the website ! update htdocs/index.html file
** upload module tarball to sourceforge @ https://sourceforge.net/projects/finance-quote/files/finance-quote/
*** Through Web interface
*** Or sftp @frs.sourceforge.net
**** cd /home/frs/project/finance-quote/finance-quote
**** put Finance-Quote-N.NN.tar.gz
**** bye
** Upload index.html for http://finance-quote.sourceforge.net/index.html
*** sftp ,finance-quote@web.sourceforge.net
**** cd /home/project-web/finance-quote/htdocs
**** put index.html
**** bye
Finance-Quote-1.51/Documentation/Hackers-Guide 0000644 0001750 0001750 00000045152 14070425453 021106 0 ustar bschuck bschuck Finance::Quote Hackers Guide
Original Author: Paul Fenwick , May 2000
$Version$
0. Table of Contents
====================
1. Introduction
2. Setup a Development Environment
3. How to write a Finance::Quote module
3.1. The package name
3.2. The methods() subroutine
3.3. The functions specified by methods()
3.4. Currency
3.5. Development & Debugging Code
3.6. Dates
3.7. Thngs to avoid
3.8. Using your new module
4. How to write a Finance::Quote::CurrencyRates module
4.1. The package name
4.2. The new() constructor
4.3. The multipliers() function
5. How to contribute your module to the world
6. How to find out more
7. How to join the mailing lists
1. Introduction
===============
This hacker's guide is primarily a tutorial on how to build your own
Finance::Quote pluggable module. After reading this guide, you should
be able to write your own module to provide extra methods and functionality
to the Finance::Quote library.
This guide assumes that you are familiar with perl.
2. Setup a Development Environment
==================================
To develop and test modules, you need a clone of the Finance-Quote git repo, a
recent version of perl, and the Dist::Zilla module and its dependencies. The
following steps provide a recipe for setup.
A. Clone the git repo
$ git clone https://github.com/finance-quote/finance-quote.git
B. (Optional) Install latest stable copy of perl in ~/perl5
$ curl -L https://install.perlbrew.pl | bash
$ echo "source ~/perl5/perlbrew/etc/bashrc" >> ~/.bash_profile # or the equivalent for your shell
$ perlbrew --notest install perl-5.28.1 # --notest is risky, but significant speeds installation
$ perlbrew switch perl-5.28.1
$ perlbrew install-cpanm
$ cpanm install Dist::Zilla
# inside the finance-quote directory
# remove --missing to install missing & upgrade existing required package
$ dzil authordeps --missing | cpanm --notest
$ dzil listdeps --missing | cpanm --notest
$ cpanm install Data::Dumper::Perltidy Smart::Comments
C. Test out finance-quote
# Light-weight test mode that skips all online tests
$ dzil test
# To run all the skipped tests, you need three environment variables:
# TEST_AUTHOR - when set, tests are run to check for required modules
# ONLINE_TEST - when set, online tests are executed
# ALPHAVANTAGE_API_KEY - free API key available from https://www.alphavantage.co
#
# Using bash syntax to set environment variables
$ cpanm Test::Pod Test::Pod::Coverage Test::Kwalitee Test::Perl::Critic
$ TEST_AUTHOR=1 ONLINE_TEST=1 ALPHAVANTAGE_API_KEY= dzil test
# To do an online test for one module
$ ONLINE_TEST=1 dzil run prove -lv t/iexcloud.t
# Use prove to during test development - it is fast
$ prove -lv t/fq-class-methods.t
3. How to write a Finance::Quote module
=======================================
Finding a source of information, and writing code to parse and interpret
that information is a difficult task. As such, we've aimed to make
writing a Finance::Quote module as easy as possible. There are only
a few simple rules you need to follow:
3.1. The package name
---------------------
Finance::Quote expects that its loadable modules will be in the
Finance::Quote namespace somewhere. Hence, if you were writing
a module called "DodgyBank" that returned information on DodgyBank's
managed funds, a reasonable name for that module would be
Finance::Quote::DodgyBank.
3.2. The methods() subroutine
-----------------------------
Your module must have a subroutine named methods(). This function will
be called by the Finance::Quote harness when it loads your module, and
is used to determine which methods your module provides. The methods()
function must return a hash of method names and subroutine references.
For example, if you had written a module which provides access to
DodgyBank's managed funds, you might have the following
package Finance::Quote::DodgyBank;
sub methods { return ( dodgyfunds => \&funds
dodgyloans => \&loans ); }
This would indicate that your package provides methods for
"dodgyfunds" and "dodgyloans", and that the subroutines
"funds" and "loans" should be called to access that information.
The following method names should be used for the following information
sources:
Method-Name Source
---------------------------------------------------------
australia Australian Stocks
canada Canadian Stocks
europe European Stocks
fidelity Fidelity Investments
nasdaq NASDAQ
nyse New York Stock Exchange
tiaacref TIAA-CREF
troweprice T. Rowe. Price
usa USA Stocks
Method names should be lower-case, consist of alphanumeric characters
(including underscore) only, and always begin with a letter. This is
not enforced, but future versions of the Finance::Quote framework may
rely upon it.
It's strongly recommended that you also provide a unique name for your
method, in case you (or others) wish to call that method exclusively
in code. Hence if you had written a module to fetch information from
the NYSE from Yohoo!, you might implement the following methods
function:
sub methods { return ( nyse => \&yohoo,
yohoo => \&yohoo ); }
This means that people who only want to use your function can use
$quoter->fetch('yohoo',@stocks), but those who don't care where
their NYSE stock information is fetched from can use
$quoter->fetch('nyse',@stocks). The first form allows you to know exactly
where the information is coming from. In the second, failover methods mean
that many different functions could be used to fetch the stock information,
not just the one you have defined.
3.3 The functions specified by methods()
----------------------------------------
The functions referred to by methods() will be passed a Finance::Quote
object when called, and a list of zero or more symbol names. The
Finance::Quote object provides the following ready-to-use methods:
user_agent(); # Provides a ready-to-use LWP::UserAgent
parse_csv(); # Parses a list of comma-separated values
# and returns an array.
The user_agent() method should be used if possible to fetch the information,
as it should be already configured to use the timeout, proxy, and other
settings requested by the calling program.
Your function should return a two-dimensional hash as specified in the
Finance::Quote man-page. Eg:
$hash{$symbol,'last'} = $last_price;
$hash{$symbol,'name'} = $stock_name;
# etc etc.
When returning your hash, you should check the context that your
function was called in. If it was called in a scalar context, then
you should return a hashref instead. This can be easily done
with the following:
return wantarray() ? %hash : \%hash;
It is ESSENTIAL that your hash contain a true value for {$symbol,'success'}
for information that has been successfully obtained. If the information
was not obtained for any reason, then {$symbol,'success'} should
be set to a false value (preferably 0), and a human-readable error
message placed in {$symbol,'errormsg'}. The following code snippet
demonstrates this:
sub funds {
my $quoter = shift; # The Finance::Quote object.
my @stocks = @_;
my %info;
my $DODGY_URL = "http://dodgybank.xxx/funds.csv?";
my $ua = $quoter->user_agent; # This gives us a user-agent
# with timeouts, proxies,
# etc already configured.
my $response = $ua->request(GET $DODGY_URL);
unless ($response->is_success) {
foreach my $stock (@stocks) {
$info{$stock,"success"} = 0;
$info{$stock,"errormsg"} = "HTTP failure";
}
return wantarray ? %info : \%info;
}
# Do stuff with the information returned....
}
It is valid to use "return" with no arguments if all stock lookups failed,
however this does not provide any information as to WHY the lookups
failed. If at all possible, the errormsg labels should be set.
It is also very very strongly recommended that you place your module's
name in the {$stock,"source"} field. This allows others to check where
information was obtained, and to use it appropriately.
3.4. Currency
-------------
Finance::Quote has support for multiple currencies and for currency
conversion. As long as you provide a little bit of information about
the information you are returning, the Finance::Quote framework can
do all the hard stuff for you.
If you are returning information on a stock in a particular currency,
then you can enter the ISO currency code into the "currency" field
associated with the stock. Eg:
$info{$stock,"currency"} = "AUD"; # Australian Dollars
If the information you are returning does not have a currency
(because it's an index like the Dow Jones Industrial or the
All Oridinaries, or because you're returning percentages) then
you should not set the currency field for that stock. Finance::Quote
knows not to attempt currency conversion for stocks without
a currency field.
If you do have a currency field, then by default Finance::Quote will
arrange for the automatic conversion of a number of fields. By
default, these fields are last, high, low, net, bid, ask, close, open,
day_range, year_range, eps, div, cap, nav and price. Of course,
there may be some cases where this set is not appropriate, or where there
are extra fields that should be converted. This can be indicated
by writing a function called "currency_fields()" in your module,
that returns a list of fields that can undergo currency conversion.
Eg:
sub currency_fields {
return qw/high low price bid/;
}
currency_fields() will be passed a Finance::Quote object as its
first argument, and a method called default_currency_fields()
is available through this object. This is useful if you want
to use the defaults, but also add some of your own:
sub currency_fields {
my $quoter = shift;
return ($quoter->default_currency_fields, "commission");
}
In the example above, the default fields would be available for currency
conversion, but the "commission" field would also be converted.
3.5 Development & Debugging Code
--------------------------------
There are multiple ways to include extra code in Perl modules to facilitate
development and debugging. For Finance::Quote modules, please use the following
strategy that uses a combination of a DEBUG constant and the Smart::Comments
module. If DEBUG is in the environment and set to a value that Perl evaluates
to true, then Smart::Comments is active and code blocks wrapped with if(DEBUG)
are also active. Otherwise, all the debugging code disappears during
compilation.
use strict; # use strict & warnings FIRST
use warnings;
use constant DEBUG => $ENV{DEBUG}; # create a constant from the environment
use if DEBUG, 'Smart::Comments'; # conditionally use Smart::Comments
use if DEBUG, 'Another::Module'; # example module only needed for debugging
use LWP::UserAgent; # and finally production module dependencies
my %h = ('a' => 1); # just an example variable
# These first two lines are always a comment. The third line
# prints a debugging string if DEBUG is in the environment.
### [] h: \%h
# For more complicated debugging, the following if-block
# will disappear during compilation because of constant folding.
if (DEBUG) {
print "More complex debugging code\n";
}
3.6. Dates
----------
Do not parse dates directly in your module. Instead you should use
the function $q->store_date(), which handles a variety of date
formats. In its simplest form, you simply tell the function what
format the date is in and it handles all the parsing. The code should
look similar to this:
$quoter->store_date(\%info, $stock, {eurodate => @$row[1]});
If the web site doesn't have a data available, somply call the
function this way:
$quoter->store_date(\%info, $stock, {today => 1});
See the documentation in Quote.pm for more information.
3.7. Things to avoid
--------------------
Some sources of information will provide more stock information than
requested. Some code may rely upon your code only returning information
about the stocks that the caller requested. As such, you should
never return information about stocks that were not requested, even
if you fetch and/or process that information.
3.8. Using your new module
--------------------------
Using your new module is easy. Normally when using Finance::Quote you'd
do something like the following:
use Finance::Quote;
my $quoter = Finance::Quote->new();
To use your new module, simply specify the module name (without
the Finance::Quote prefix) in the new function. Hence:
use Finance::Quote;
my $quoter = Finance::Quote->new("DodgyBank");
The DodgyBank methods will now be available:
my %loaninfo = $quoter->fetch("dodgyloans","car","boat","house");
my %fundinfo = $quoter->fetch("dodgyfunds","lotto","shares");
The resulting Finance::Quote object will also arrange for your functions
to be callable without using fetch. This syntax is strongly discouraged,
as it results in pollution of the Finance::Quote namespace and provides
little advantages over the fetch() method:
my %loaninfo = $quoter->dodgyloans("car","boat","loan");
This mainly exists to maintain compatibility with previous versions of
Finance::Quote.
4. How to write a Finance::Quote::CurrencyRates module
======================================================
Currency Rate modules carryout a single task: Given two currencies, return
multipliers that describe the relative value of the currencies. In the
simplest case, one multiplier is "1.0" and the other multiplier is the exchange
rate between the two currencies. In the other case, the multipliers reflect the
relative value of each currency to a third base currency.
For example, on 2020-10-30, the European Central Bank reported that 1.1698 USD
(United States Dollar) was equivalent to 1.00 EUR (Euro). It also reported that
0.90208 GBP (Pound Sterling) was equivalent to 1.00 EUR. To convert from USD to
GBP, the following from/to multipliers are equivalent:
from to Base Currency
-------- -------- -------------
1.16980 0.90208 EUR
1.00000 0.77114 USD
1.29678 1.00000 GBP
Depending on the source of the currency rates, it may be more convenient for a
currency rate module to return multipliers that are relative to a third
currency (first row), the conversion rate (the second row), or the inverse
conversion rate (the third row).
Currency rate modules should avoid carrying out arithmetic and leave it to
Finance::Quote to use the multipliers to compute the final conversion value.
4.1. The package name
---------------------
Currency rate modules belong in the Finance::Quote::CurrencyRates namespace and
the name of the module should be descriptive. Use PascalCase (upper CamelCase)
for the module name.
4.2. The new() constructor
--------------------------
Currency rate modules are called from a Finance::Quote quoter object when
currency conversion is either explicitly requested from a caller or to convert
a fetched security price to a user specified currency. When instantiating a
quoter object, the caller may pass module specific parameters. Suppose the
currency rate module ExampleRates requires an API key and also optionally
supports caching rates during the lifetime of the quoter object. Then the
code
my $q = Finance::Quote->new('currency_rates' =>
{order => ['ExampleRates', 'ECB'],
examplerates => {API_KEY => 'x01234566',
cache => True}});
instantiates a quoter that uses ExampleRates first and falls back the ECB
for currency rates. When ExampleRates is used, the API_KEY can cache options
are configured through a module specific hash.
Finance::Quote passes just the hash containing the API_KEY and cache key/value
pairs to ExampleRates->new() as a hash reference. If the caller does not
specify an ExampleRates key in the currency_rates hash, then ExampleRates->new()
is called with no arguments. ExamplesRates may, but is not required, to
alternately read the API key from an environment variable.
Clearly document all currency rate module options in the POD documentation for
the module.
4.3. The multipliers() function
-------------------------------
Finance::Quote calls the currency rate object method multipliers() with the
arguments (object, user_agent, from, to), where
object was previously instantiated with a call to new()
user_agent is a LWP::UserAgent
from is an ISO currency code
to is an ISO currency code
multipliers() must a pair of multipliers (from_multiplier, to_multiplier),
where
from_multiplier is a floating point value
to_multiplier is a floating point value
and to_multiplier/from_multiplier will convert a value in currency "from"
into currency "to".
On error, multipliers() must either return undef or throw and exception
with die().
5. How to contribute your module to the world
=============================================
Check list:
o Created a well-named module file in the Finance directory tree
o Included POD documentation at the bottom of module file
o Included a VERSION comment just *after* the use module statements
o Added the module name in alphabetical order to the @MODULES or @CURRENCY_MODULES variable in Quote.pm
o Added the module name in alphabetical order in the SEE ALSO section of the Quote.pm POD
o Created a well-named test file in the t/ directory, including a test that succeeds and a test that fails
o Ensure tests 00-store-date.t, 01-pod.t, 02-pod-coverage.t, 03-kwalitee.t, 04-critic.t, 05-data-dumper.t pass
Contributions to Finance-Quote are best presented as pull requests on GitHub.com.
A. Create a GitHub account and sign-in
B. Go to https://github.com/finance-quote/finance-quote
C. Click "Fork" in the upper-right corner
D. Commit your new module and other code changes to the fork
E. Click "New Pull Request" on https://github.com/finance-quote/finance-quote
F. Click "Compare Across Forks"
G. Select the appropriate commits and create the merge request
Contact developers at finance-quote-devel@sourceforge.net to discuss
new modules, ask questions, or get help opening a merge request.
6. How to find out more
=======================
The Finance::Quote GitHub page is located at
https://github.com/finance-quote/finance-quote
and contains information about the project and links to older SourceForge
documentation.
7. How to join the mailing lists
================================
There are two mailing lists for Finance::Quote. These can both be accessed
from:
http://sourceforge.net/mail/?group_id=4232
Finance-Quote-1.51/Documentation/License 0000644 0001750 0001750 00000043254 14070425453 020056 0 ustar bschuck bschuck GNU GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. This
General Public License applies to most of the Free Software
Foundation's software and to any other program whose authors commit to
using it. (Some other Free Software Foundation software is covered by
the GNU Lesser General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must show them these terms so they know their
rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that redistributors of a free
program will individually obtain patent licenses, in effect making the
program proprietary. To prevent this, we have made it clear that any
patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for
making modifications to it. For an executable work, complete source
code means all the source code for all modules it contains, plus any
associated interface definition files, plus the scripts used to
control compilation and installation of the executable. However, as a
special exception, the source code distributed need not include
anything that is normally distributed (in either source or binary
form) with the major components (compiler, kernel, and so on) of the
operating system on which the executable runs, unless that component
itself accompanies the executable.
If distribution of executable or object code is made by offering
access to copy from a designated place, then offering equivalent
access to copy the source code from the same place counts as
distribution of the source code, even though third parties are not
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
original licensor to copy, distribute or modify the Program subject to
these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
7. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Program at all. For example, if a patent
license would not permit royalty-free redistribution of the Program by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Program.
If any portion of this section is held invalid or unenforceable under
any particular circumstance, the balance of the section is intended to
apply and the section as a whole is intended to apply in other
circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding
those countries, so that distribution is permitted only in or among
countries not thus excluded. In such case, this License incorporates
the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of this License which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
this License, you may choose any version ever published by the Free Software
Foundation.
10. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
convey the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
Copyright (C)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License along
with this program; if not, write to the Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) year name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, the commands you use may
be called something other than `show w' and `show c'; they could even be
mouse-clicks or menu items--whatever suits your program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here is a sample; alter the names:
Yoyodyne, Inc., hereby disclaims all copyright interest in the program
`Gnomovision' (which makes passes at compilers) written by James Hacker.
, 1 April 1989
Ty Coon, President of Vice
This General Public License does not permit incorporating your program into
proprietary programs. If your program is a subroutine library, you may
consider it more useful to permit linking proprietary applications with the
library. If this is what you want to do, use the GNU Lesser General
Public License instead of this License.
Finance-Quote-1.51/Documentation/README 0000644 0001750 0001750 00000003506 14070425453 017425 0 ustar bschuck bschuck Welcome to Finance::Quote
=========================
Maintained by: Paul Fenwick
Erik Colson
What does Finance::Quote provide?
=================================
Finance::Quote provides access to time-delayed stockquotes from a
number of sources. After you've installed the pacakage, try
'perldoc Finance::Quote' for full information. Alternatively,
you can 'perldoc lib/Finance/Quote.pm' before the install.
How do I install this package?
==============================
See the `INSTALL' file. It's very simple.
I've found a bug / written a patch / have an idea. What do I do?
=================================================================
Well, you could always mail it to ,
which is read by all the active developers. Alternatively, you
might wish to visit
.
How do I download the most recent copy of Finance::Quote?
=========================================================
You can find all releases of Finance::Quote at:
.
You might also wish to consider subscribing to finance-quote-news,
which can be done from: .
How can I get a copy of the current CVS development tree?
=========================================================
You can't. The CVS repo has been ported to GIT as of version 1.13_01.
How can I get a copy of the current GIT development tree?
=========================================================
The GIT repository is available at:
.
Where can I find more information?
==================================
Try the Finance::Quote webpage. There are lots of goodies there.
http://finance-quote.sourceforge.net/
Finance-Quote-1.51/Documentation/FAQ 0000644 0001750 0001750 00000005220 14070425453 017072 0 ustar bschuck bschuck Finance::Quote FAQ
Paul Fenwick (pjf at cpan.org)
0. TABLE OF CONTENTS
====================
0. Table of Contents.
1. Where's the Finance::Quote webpage?
2. Where can I get a beginner's introduction to F::Q?
3. How can I use proxyauth (experimental)?
4. Is there anything similar to F::Q in other programming languages?
5. Where can I get more help?
6. Is there commercial support for F::Q available?
1. Where is the Finance::Quote webpage?
=======================================
http://finance-quote.sourceforge.net/
2. Where can I get a beginner's introduction to F::Q?
=====================================================
A good beginner's guide is the Finance::Quote article in
The Perl Journal edition #19. You can read the final draft of this
essay online at:
.
3. How can I use proxyauth (experimental)?
==========================================
WARNING: THIS SUPPORT IS EXPERIMENTAL AND SYNTAX _WILL_ CHANGE IN
THE FUTURE. If it breaks, you get to keep both pieces.
Finance::Quote provides experimental support for authenticated
proxies. If you wish to try this, then put the following at the
top of your script.
use Finance::Quote;
$Finance::Quote::USE_EXPERIMENTAL_UA = 1;
This adds extra features on top of the regular LWP::UserAgent
class. In particular, you can now do things like this:
my $q = Finance::Quote->new();
$q->user_agent->default_headers->proxy_authorization_basic($user,$pass);
The result of $q->user_agent->default_headers is a HTTP::Headers
object, and can use all the regular HTTP::Headers methods.
This object is used as a template for any new HTTP requests made by
Finance::Quote.
4. Is there anything similar to F::Q in other programming languages?
====================================================================
Vidyut Luther has written a stock-lookup library in PHP. It's
available at
Bill Bell has written a stock-lookup library in Java. It's
available at . Follow the
"Code Downloads" link in the left sidebar.
5. Where can I get more help?
=============================
If you haven't already done so, try the Finance::Quote webpage
at . There are also lots
of fun things like bug-tracking systems, support requests, forums,
and other goodies at .
Finally, you can always try sending mail to the Finance::Quote
developer's list, at .
The archives of this list are available on-line at
.
Finance-Quote-1.51/LICENSE 0000644 0001750 0001750 00000043523 14070425453 014744 0 ustar bschuck bschuck This software is Copyright (c) 2013 by Erik Colson .
This is free software, licensed under:
The GNU General Public License, Version 2, June 1991
GNU GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. This
General Public License applies to most of the Free Software
Foundation's software and to any other program whose authors commit to
using it. (Some other Free Software Foundation software is covered by
the GNU Lesser General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must show them these terms so they know their
rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that redistributors of a free
program will individually obtain patent licenses, in effect making the
program proprietary. To prevent this, we have made it clear that any
patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for
making modifications to it. For an executable work, complete source
code means all the source code for all modules it contains, plus any
associated interface definition files, plus the scripts used to
control compilation and installation of the executable. However, as a
special exception, the source code distributed need not include
anything that is normally distributed (in either source or binary
form) with the major components (compiler, kernel, and so on) of the
operating system on which the executable runs, unless that component
itself accompanies the executable.
If distribution of executable or object code is made by offering
access to copy from a designated place, then offering equivalent
access to copy the source code from the same place counts as
distribution of the source code, even though third parties are not
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
original licensor to copy, distribute or modify the Program subject to
these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
7. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Program at all. For example, if a patent
license would not permit royalty-free redistribution of the Program by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Program.
If any portion of this section is held invalid or unenforceable under
any particular circumstance, the balance of the section is intended to
apply and the section as a whole is intended to apply in other
circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding
those countries, so that distribution is permitted only in or among
countries not thus excluded. In such case, this License incorporates
the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of this License which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
this License, you may choose any version ever published by the Free Software
Foundation.
10. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
convey the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
Copyright (C)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License along
with this program; if not, write to the Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) year name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, the commands you use may
be called something other than `show w' and `show c'; they could even be
mouse-clicks or menu items--whatever suits your program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here is a sample; alter the names:
Yoyodyne, Inc., hereby disclaims all copyright interest in the program
`Gnomovision' (which makes passes at compilers) written by James Hacker.
, 1 April 1989
Ty Coon, President of Vice
This General Public License does not permit incorporating your program into
proprietary programs. If your program is a subroutine library, you may
consider it more useful to permit linking proprietary applications with the
library. If this is what you want to do, use the GNU Lesser General
Public License instead of this License.
Finance-Quote-1.51/META.json 0000644 0001750 0001750 00000011520 14070425453 015350 0 ustar bschuck bschuck {
"abstract" : "Get stock and mutual fund quotes from various exchanges",
"author" : [
"Ben Hemming ",
"Bradley Dean ",
"Brent Neal ",
"Bruce P Schuck ",
"Caleb Begly ",
"CleanShed <72849657+CleanShed@users.noreply.github.com>",
"David Hampton ",
"Diego Marcolungo ",
"Eelco Dolstra ",
"Emmanuel Di Pretoro ",
"Erik Colson ",
"Florian Schlichting ",
"Henrik Ahlgren ",
"Hiranya Samarasekera ",
"Jacinta Richardson ",
"Jalon Avens ",
"Jean-Marie Pacquet ",
"John Haiducek ",
"Lance Wicks ",
"Linas Vepstas ",
"Martin Kompf ",
"Mike Alexander ",
"Paul Fenwick ",
"Paul Howarth ",
"Pawel Konieczny ",
"Ross Peachey ",
"Sam Morris ",
"Sigve Indregard ",
"Stephan Ebelt ",
"Vinay S Shastry ",
"Vincent Lucarelli ",
"alex314159 ",
"e-dorigatti ",
"goodvibes2 ",
"gregor herrmann ",
"jvolkening ",
"linas ",
"x42x64 "
],
"dynamic_config" : 0,
"generated_by" : "Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150010",
"license" : [
"gpl_2"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
"version" : "2"
},
"name" : "Finance-Quote",
"prereqs" : {
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
}
},
"develop" : {
"requires" : {
"Test::Pod" : "1.41"
}
},
"runtime" : {
"requires" : {
"Carp" : "0",
"DateTime" : "0",
"DateTime::Format::Strptime" : "0",
"Encode" : "0",
"Exporter" : "0",
"HTML::TableExtract" : "0",
"HTML::TokeParser" : "0",
"HTML::TokeParser::Simple" : "0",
"HTML::TreeBuilder" : "0",
"HTML::TreeBuilder::XPath" : "0",
"HTTP::Cookies" : "0",
"HTTP::Headers" : "0",
"HTTP::Request" : "0",
"HTTP::Request::Common" : "0",
"HTTP::Status" : "0",
"IO::Uncompress::Unzip" : "0",
"JSON" : "0",
"LWP::Simple" : "0",
"LWP::UserAgent" : "0",
"Module::Load" : "0",
"POSIX" : "0",
"Scalar::Util" : "0",
"Spreadsheet::XLSX" : "0",
"String::Util" : "0",
"Text::Template" : "0",
"Time::Piece" : "0",
"Time::Seconds" : "0",
"Try::Tiny" : "0",
"Web::Scraper" : "0",
"XML::LibXML" : "0",
"base" : "0",
"constant" : "0",
"if" : "0",
"perl" : "5.010",
"strict" : "0",
"utf8" : "0",
"vars" : "0",
"warnings" : "0"
}
},
"test" : {
"requires" : {
"Date::Manip" : "0",
"Date::Range" : "0",
"Date::Simple" : "0",
"DateTime::Duration" : "0",
"DateTime::Format::ISO8601" : "0",
"File::Spec" : "0",
"HTML::TokeParser::Simple" : "0",
"HTML::TreeBuilder::XPath" : "0",
"Scalar::Util" : "0",
"Spreadsheet::XLSX" : "0",
"Test::Kwalitee" : "0",
"Test::More" : "0",
"Test::Perl::Critic" : "0",
"Test::Pod" : "0",
"Test::Pod::Coverage" : "1.00",
"Time::Piece" : "0",
"Web::Scraper" : "0",
"feature" : "0"
}
}
},
"release_status" : "stable",
"resources" : {
"bugtracker" : {
"web" : "https://rt.cpan.org/Dist/Display.html?Name=Finance-Quote"
},
"homepage" : "http://finance-quote.sourceforge.net/",
"repository" : {
"type" : "git",
"url" : "git://github.com/finance-quote/finance-quote",
"web" : "https://github.com/finance-quote/finance-quote"
}
},
"version" : "1.51",
"x_serialization_backend" : "JSON::XS version 3.04"
}
Finance-Quote-1.51/Changes 0000644 0001750 0001750 00000136012 14070425453 015226 0 ustar bschuck bschuck 1.51 2021-07-04 14:41:59-07:00 America/Los_Angeles
* Fix bugs in t/fq-object-methods.t
* Add code to hide warning in t/currency_lookup.t
1.50 2021-06-26 20:52:16-07:00 America/Los_Angeles
* New modules: CurrencyRates
* Updated modules: ASX, TIAA-CREF, Fool, Currencies
* Corrected some POD issues (thanks to the Debian Perl Group)
1.49 2019-06-30 12:20:58+02:00 Europe/Brussels
* Alphavantage: Removed Time::HiRes dependency due to mswin32
not supporting clock_gettime calls.
1.48 2019-06-30 01:19:14+02:00 Europe/Brussels
* Alphavantage: Add a waiting mechanism to comply to
alphavantage use terms
* Alphavantage: Added several stock exchange support and
currency
* Updated modules: Union, Deka, Indiamutual, ASX, Yahoojson,
TSP, AEX, Fool
* New modules: IEXTrading, MorningstarAU, MorningstarCH,
IEXCloud
* Yahoo: removed modules referring to yahoo API, which yahoo
stopped
* BUGFIX: 'use of uninitialized value' returned by perl could
make gnucash fail when more than 15 quotes where requested
* BUGFIX: MS Windows does not support %T in strftime call
* Added new documentation files: Release.txt, Hackers-Guide,
Modules-README.yml
* We started moving known failing tests into TODO blocks
* This release is the result of hard work by Bruce Schuck,
Vincent Lucarelli, Pieter-Jan Vandormael, Manuel Friedli,
Jalon Avens, Chris Good, Mark J. Cox, Eelco Dolstra, Henrik
Ahlgren, Vinay Shastry, Mike Alexander, Erik Colson.
* Special thanks go to Bruce Schuck and Vincent Lucarelli
which joined the maintainers team!
1.47 2017-11-12 17:19:42+01:00 Europe/Brussels
* Use AlphaVantage for currency quotes instead of Yahoo (Mike Alexander)
1.46 2017-11-12 17:13:15+01:00 Europe/Brussels
* Drop long-obsolete debian directory (Florian Schlichting)
* AlphaVantage:
- added support for .IL => USD currency and division (Adriano Baldi)
- graceful error catchup (Mike Alexander)
* Yahoojson:
- module adapted to new URL and returned json (Rafael Casali)
1.45 2017-11-08 21:35:51+01:00 Europe/Brussels
* alphavantage
* more suffix - currency pairs added
* GBP and GBX divided by 100
1.44 2017-11-07 21:57:57+01:00 Europe/Brussels
* Added currencies for .SA (Brazil) and .TO (Canada/Toronto) markets
* Setup a pause of .7s between queries in AlphaVantage.pm to limit queries
1.43 2017-11-06 23:41:47+01:00 Europe/Brussels
* Added currency for .DE market
* BUGFIX in currency determination regex
1.42 2017-11-06 19:04:25+01:00 Europe/Brussels
* more tests in alphavantage.t
* BUG resolved: removed time from $last_refresh when markets are open
1.41 2017-11-06 16:06:41+01:00 Europe/Brussels
* return symbol for AlphaVantage data
1.39
* added AlphaVantage module (Matthew Patterson)
* some other module changes: yahoojson, Morningstar, Bourso, TSX (not working)
1.38 2015-08-22 13:22:56+02:00 Europe/Brussels
* module updates: tiaacref, yahooJSON, FTfunds, MStaruk, USFedBonds, GoldMoney
* new modules: fidelityfixed (Peter Ratzlaff), yahooYQL
* removed modules: MTGox
* more tests: yahoo_speed.t, tiaacref.t
1.37 2015-02-01 20:24:32+01:00 Europe/Brussels
* modified 00-use.t to show more info
* Remove Crypt::SSLeay dependency in favor of LWP::Protocol::https (Geert Janssens)
* Updated HU.pm and test file to current website (Kristof Marussy)
1.36 2015-01-31
* MorningstarJP : changed dependency from Date::Calc to DateTime
1.35 2014-06-17 08:06:14+02:00 Europe/Brussels
* BUGFIX: VWD - currency returned.
1.34 2014-06-15 21:30:03+02:00 Europe/Brussels
* VWD adapted to recent website change.
1.33 2014-06-01 11:24:24+02:00 Europe/Brussels
* BUGFIX: yahoo_json never returns currency. so don't set a default.
yahoo_json returned current timestamp instead of quote date.
1.32 2014-05-18 21:55:12+02:00 Europe/Brussels
* return "symbol" for yahoo_json module
* allow to retrieve ISIN codes with VWD module
1.31 2014-05-04 22:56:45+02:00 Europe/Brussels
* Case mismatch in ZA_UnitTrusts pod
1.30 2014-05-04 21:56:34+02:00 Europe/Brussels
* Bourso.pm works on current website changes. Thanks to Guillaume
* New module CSE.pm by Hiranya Samarasekera. Covers Colombo Stock
Exchange (CSE) in Sri Lanka.
1.29 2014-04-08 08:28:25+02:00 Europe/Brussels
* New module za_unittrusts. kudos to Rolf Endres.
* Indiamutual patched to current website. kudos to Vinay S Shastry.
1.28 2014-03-16 12:05:19+01:00 Europe/Brussels
* Removed some unnecessary dependencies
1.27 2014-03-05 15:04:22+01:00 Europe/Brussels
* New module YahooJSON added (Abhijit Kshirsagar)
* mtgox.t should not create errors when ONLINE_TEST is not defined
1.26 2014-03-03 22:24:58+01:00 Europe/Brussels
* VWD adapted to current website (skaringa)
* Boursorama module mostly fixed (Arnaud Gardelein)
1.25 2014-03-02 23:18:23+01:00 Europe/Brussels
* AEX.pm : Some checking added. Not working yet
* Quote.pm : readded sub parse_csv_semicolon.
1.24 2014-03-02 21:39:00+01:00 Europe/Brussels
* Added module Citywire.pm written by Martin Sadler
* Added module FTfunds.pm written by Martin Sadler
* Added module MStaruk.pm written by Martin Sadler
* Added module TNetuk.pm written by Martin Sadler
* Data::Dumper is no more required to build
1.23_02 2014-03-02 14:46:41+01:00 Europe/Brussels (TRIAL RELEASE)
TEST RELEASE
1.22 2014-03-02 10:38:18+01:00 Europe/Brussels (TRIAL RELEASE)
TEST RELEASE
1.21 2014-03-02 09:56:38+01:00 Europe/Brussels (TRIAL RELEASE)
* ASX.pm now supports querying more than 10 symbols (goodvibes2)
* Travis config added for automated test build
* BUILD: Updated to use Dist::Zilla
2014-02-17 Erik Colson
* INSTALLATION FIX: Install Date::Calc as dependency
2014-02-16 Erik Colson
* MtGox support added by Sam Morris
* MorningstarJP support added by Christopher Hill
* Yahoo modules changed due to site change
2010-02-16 Erik Colson
* TSP.pm updated. Patch from Kevin Ryde.
* YAHOO/Base.pm added conversion from 'B' billions to
numbers. Patch from Kevin Ryde.
* Billions support moved to Quote.pm
2009-10-05 Erik Colson
* Lots of tests added
2009-10-04 Erik Colson
* IndiaMutual.t tests added
* Yahoo_europe: Bug 44245 solved. Wrong fields returned.
* Documentation: Bug 48818 corrected.
2009-10-03 Erik Colson
* yahoo_europe.t tests corrected
2009-09-30 Erik Colson
* Bourso.t tests corrected
2009-09-29 Erik Colson
* AEX.pm removed code for options and futures. (didn't work)
2009-07-19 Erik Colson
* Bug in Yahoo::Base corrected. Sometimes year range is wrongly returned.
2009-07-19 Giles Robertson
* Bug in Yahoo::Base corrected. GBp wrongly interpreted.
2009-07-19 Stephan Ebelt
* Goldmoney.pm patched. support for platinum added.
2009-07-18 Zoltan Levardy
* New module HU.pm (Hungarian stocks)
2009-06-14 Divakar Ramachandran
* Bug RT 46155 solved by modifying link in IndiaMutual.pm
2009-06-14 Stephan Ebelt
* Cominvest URL modified
2009-06-14 Erik Colson
* currencies adapted to yahoo denomination
2009-06-13 Sattvik
* currency retrieval updated (yahoo website changed)
2009-04-27 Bradley Dean
* ASX.pm updated due to website change
2009-04-13 Erik Colson
* Release 1.16
2009-04-12 Erik Colson
* BUGFIX: Bourso.pm allmost completely rewritten due to website change.
* BUGFIX: Morningstar.pm patched by Fredrik Persson.
* BUGFIX: AEX.pm patched by Herman van Rink.
2009-03-19 Erik Colson
* BUGFIX: 12:XXpm formatted time handling.
2009-03-04 Erik Colson
* RENAMED ITE is now RZR
2009-03-02 Erik Colson
* BUGFIX: ZA.pm patched.
2009-03-01 Erik Colson
* BUGFIX: Stephen Ebelt patch applied for goldmoney.pm
* BUGFIX: Encoding problem solved by Ashwin
2009-02-16 Bradley Dean
* NEW: Function fetch_live_currencies.
2009-02-15 Bradley Dean
* NEW: Module Finance::Quote::Currencies created for use in
currency_lookup.
2008-12-05 Erik Colson
* Finanzpartner module adapted to site updated. By Jan Wilamowius.
* Morningstar patched by Fredrik Persson.
2008-11-09 Erik Colson
* Bourso.pm updated due to website update. By Bernard Fuentes
2008-10-26 Erik Colson
* BUG correction : IndiaMutual.pm: symbol not set it module.
* Release 1.15
2008-10-21 Erik Colson
* BUG correction : function isoTime - make sure $hours and $mins are treated as numbers
* use sprintf in isoTime
2008-10-15 Erik Colson
* Release 1.14
2008-10-13 Erik Colson
* Finanzpartner.pm added by Jan Willamowius
2008-10-12 Erik Colson
* isoTime function added
* added quote.t
* yahoo time is now format using isoTime
2008-10-11 Erik Colson
* added prerequisite for HTML::TreeBuilder
* union.t from todo
2008-10-10 Paul Fenwick
* TEST: Ensure Data::Dumper is not accidently left in
F::Q code.
2008-10-07 Erik Colson
* Root README added
* BUGFIX: asx.t
2008-10-05 Erik Colson
* Added Cominvest module from Stephan Ebelt
2008-10-04 Erik Colson
* Failing tests moved to todo-state for trustnet, usfedbonds,
bourso, deka, union
* BUGFIX: currency.t
* BUGFIX: lerevenu.t - index ID corrected
2008-10-02 Erik Colson
* Failing tests moved to todo-state for ftportfolios, aiahk, nzx,
maninvestments.
2008-09-30 Paul Fenwick
* BUGFIX: Applied patch from Bill Carlson to fix Tiaacref.pm.
Thanks Bill, you rock!
2008-09-28 Erik Colson
* StockHouseCanada.pm updated to new site layout
* DWS.pm updated
2008-09-27 Erik Colson
* VWD.pm updated to new site layout
* TSX.pm added
2008-09-27 Paul Fenwick
* DOCUMENTATION: Fixed malformed formatting in authors
email addresses in Fiannce/Quote.pm.
2008-09-26 Erik Colson
* AEX.pm updated to new site layout (comma used in numbers)
2008-09-22 Paul Fenwick
* BUILD: Module::Install 0.77 is now used for building
and installation. (PJF)
* TESTING: Finance::Quote's test system has been restructured.
Tests are now run during installation, but online and author
tests are skipped by default. (PJF)
2008-09-21 Erik Colson
* lib/Finance/Quote/Yahoo/Brasil.pm: Enable semicolon.
2007-05-13 David Hampton
* lib/Finance/Quote/SEB.pm: Patch from Henrik Riomar to fix a problem finding quotes for funds with the Swedish
chars åäö in the name.
* lib/Finance/Quote/IndiaMutual.pm: Patch from Devendra Gera to remove white space when splitting the results in the
AMFI data file.
2007-01-07 David Hampton
* CVSTAG: finance_quote_1_13
* lib/Finance/Quote.pm: Update version to 1.13.
* lib/Finance/Quote.pm: Update the store_date() function for the
case when the year isn't explicitly stated. If the specified
month would put the quote in the future, then consider this a
quite from last year. manly intended to handle the rollover from
December to January on web sites that don't specify the year.
Suggestion from Christian Lupien.
* lib/Finance/Quote/BMONesbittBurns.pm: Enhance module to support
mutual fund quotes (which have less data than stock quotes).
Correct date format parsing. Fix from Christian Lupien .
* lib/Finance/Quote/StockHouseCanada.pm: The fund name seems to be
a moving target. Search all tables of depth one looking for it.
2007-01-01 David Hampton
* lib/Finance/Quote/FTPortfolios.pm: Rewrite this module for the
new web site design.
* lib/Finance/Quote/TSP.pm: Strip spaces around the dollar values.
* lib/Finance/Quote/FinanceCanada.pm: Rewrite this module for the
new web site design.
* test/*.t: Some restructuring of tests. Add a couple more tests
on dates. Replace a couple of test stocks that are no longer
valid.
* test/*.t: Accept last year as a valid date. Comes in hand when
testing modules at the start of the new year.
* lib/Finance/Quote/ZA.pm: Update for changes in the display of
the web site.
2006-12-31 David Hampton
* lib/Finance/Quote/StockHouseCanada.pm:
* test/stockhousecanada.t: New module for getting Canadian Mutual
fund quotes from Chris Carton .
* lib/Finance/Quote/Deka.pm: Update for changes in the display
of the web site. Now uses an https url.
* lib/Finance/Quote/LeRevenu.pm: Updates from Dominique Corbex for
changes in the display of the web site.
* lib/Finance/Quote/Trustnet.pm: Update for changes in the display
of the web site.
2006-09-11 David Hampton
* Move AIA.pm to AIAHK.pm since AIA has sites in multiple
countries.
2006-09-10 David Hampton
* lib/Finance/Quote/AIA.pm:
* test/aia.pm: New module to access American International
Assurance fund information. Based on perl script from Wouter van
Marle .
* lib/Finance/Quote/Bourso.pm: Update the URL to track changes on
the web site.
2006-07-10 David Hampton
* lib/Finance/Quote.pm: Update version to 1.12.
* CVSTAG: finance_quote_1_12
2006-06-27 David Hampton
* Makefile.PL: State the dependency on Crypt::SSLeay that several
modules now have.
* lib/Finance/Quote/Yahoo/Base.pm: Don't set fields that are
defined but are empty..
* test/yahoo_brasil.t: Update the test module to have more cases
and use better stocks.
* lib/Finance/Quote/Yahoo/Brasil.pm: Update for the change of the
data separator from a semicolon to a comma.
* test/financecanada.t:
* test/hex.t: Add new test cases to cover the last untested
modules. All modules are now tested.
* lib/Finance/Quote/FinanceCanada.pm: Don't set the success flag
if the lookup failed.
* lib/Finance/Quote/Platinum.pm: Use the new url of the pricing
information.
* lib/Finance/Quote/ManInvestments.pm: Update for the new table
format on the web site.
* test/indiamutual.t:
* test/aex.t: Update the test cases to use currently listed funds.
* lib/Finance/Quote/ManInvestments.pm: The url for updating
quotes has changed, as has the table header.
* lib/Finance/Quote/Bourso.pm:
* lib/Finance/Quote/LeRevenu.pm:
* test/bourso.t:
* test/lerevenu.t: Updated modules from Dominique Corbex
. The name field now returns the real name
and not ticker symbols, and other small fixes.
2006-04-08 David Hampton
* lib/Finance/Quote/Trustnet.pm: Work around the fact that gnucash
escapes the ampersand character when passing stock names to F::Q.
* lib/Finance/Quote/DWS.pm: Updated module from Klaus Dahlke
to retrieve quotes from the new DWS web
page.
* lib/Finance/Quote/Tiaacref.pm: Explicitly state in the code that
this module requires ssl support (it uses an https:// url). This
prevents perl from trying to run the code when ssl support isn't
present.
* lib/Finance/Quote.pm:
* lib/Finance/Quote/HEX.pm:
* test/hex.t: New module from Mika Laari
to fetch quote information from
the Helsinki stock exchange.
* Documentation/Hackers-Guide: Add a section on the q->store_date()
function. All modules should use this function to set the 'date'
and 'isodate' fields based on the retrieved textual date (or lack
thereof).
* test/lerevenu.t: Test the right module.
2006-04-07 David Hampton
* lib/Finance/Quote.pm:
* lib/Finance/Quote/LeRevenu.pm:
* test/lefrevenu.t: New module from Dominique Corbex
to fetch information from the
LeRevenu.com site in France.
* t/yahoo_europe.t: New test cases for non-GBP London exchange
stocks. Use new stock for test of the XETRA exchange. (Can't
find a non-Euro stock there, so remove those tests.)
* lib/Finance/Quote/Yahoo/Base.pm: Patch from p1n0@sourceforge.net
to only divide London exchange values by 100 if they are
denominated in pence.
2006-04-06 David Hampton
* lib/Finance/Quote.pm:
* lib/Finance/Quote/Bourso.pm:
* test/bourso.t: New module from Dominique Corbex
to fetch information from the "Paris
Stock Exchange", http://www.boursorama.com.
* lib/Finance/Quote/VWD.pm: Updated module from Jörg Sommer that
is more tolerant of the advertising added to the web page.
2006-01-11 David Hampton
* CVSTAG: finance_quote_1_11
* lib/Finance/Quote.pm: Updated $VERSION to 1.01
2006-01-10 David Hampton
* test/dws.t:
* test/maninvestments.t:
* test/yahoo_brasil.t: Accept dates in both the previous and
current year as valid responses.
* test/aex.t: Change test currency to one still on the exchange.
* lib/Finance/Quote/VWD.pm: Jörg Sommer's patch to work better
with invalid WKNs and to extract the exchange information from its
new location.
2005-11-18 David Hampton
* lib/Finance/Quote/AEX.pm: Use the store_date function.
* lib/Finance/Quote/ASX.pm:
* lib/Finance/Quote/Cdnfundlibrary.pm:
* lib/Finance/Quote/Platinum.pm:
* lib/Finance/Quote/Trustnet.pm:
* lib/Finance/Quote/Yahoo/Base.pm: Add code to protect against
empty tables, data fields, etc.
* test/aex.t: Correct the number of test cases. Changed test
stock to one that is still on the exchange. Site no longer
provides time (date only) so remove tests for time of quote.
Futures quotes don't always have bid/ask values so comment out
those tests.
* test/indiamutual.t:
* test/trustnet.t:
* test/union.t:
* test/yahoo.t: Changed test stock to one that is still on the
exchange.
* test/yahoo_brasil.t: All returned prices (for all stocks I
tried) return a price of zero, so comment out the test for
non-zero.
2005-10-23 David Hampton
* lib/Finance/Quote/VWD.pm: Put back the call to the
HTML::TableExtract first_table_state_found() function for now. At
some point this should be removed and the 2.0 version of
HTML::TableExtract required.
* lib/Finance/Quote.pm: Make note of an alternate yahoo URL that
can be used to obtain currency quotes. From Gerry Barksdale .
2005-10-22 David Hampton
* lib/Finance/Quote/Tiaacref.pm:
* test/tiaacref.t: Add Support for TIAA-CREF mutual funds from
Brandon .
* lib/Finance/Quote/VWD.pm: Remove the thousands separator
character from quote values.
* lib/Finance/Quote/TSP.pm:
* test/tsp.t: Frank Mori Hess's change
to add support for the TSP lifecycle L funds.
* ChangeLog: Archive pre-2005 data into a separate file.
* lib/Finance/Quote/Deka.pm: Add a new module to retrieve German
investment fund prices from Deka. Module from Knut Franke
* lib/Finance/Quote/USFedBonds.pm:
* test/usfedbonds.t: Add a new US Federal Bonds stock quote module
from Stephen Langenhoven .
2005-10-21 David Hampton
* lib/Finance/Quote.pm: Updated to work with new Yahoo currency
conversion pages.
* lib/Finance/Quote/Tiaacref.pm: New URL from Kevin Foss. Uses
https, so the Crypt::SSLeay module is now required for TIAA-CREF
quotes.
* lib/Finance/Quote/ZI.pm: Zürich Invest has been purchased by
Deutsche Bank and integrated into DWS. The DWS.pm module should
now be used in place of the ZI.pm module.
* lib/Finance/Quote/VWD.pm: Patch from Rainer Dorsch to return the
current price as 'last'. The HTML::TableExtract
first_table_state_found() function has been deprecated. Accept
both the old and new values as correct answers.
* lib/Finance/Quote/ZA.pm:
* test/za.t: Add a new South African stock quote module from
Stephen Langenhoven .
2005-08-10 David Hampton
* lib/Finance/Quote/VWD.pm: Handle invalid ISINs better. VWD
delivers a 404 error instead of a blank page. Fix suggested by
Uwe Simon
2005-07-04 Paul Fenwick
* lib/Finance/Quote.pm: Bumped $VERSION to 1.10, primarily
to work around a problem with CPAN distributions.
* CVSTAG: finance_quote_1_10
2005-06-29 David Hampton
* lib/Finance/Quote/VWD.pm: Updated module from Jörg Sommer
.
* lib/Finance/Quote/cdnfundlibrary.pm: Changes inspired by
kalaleq@users.sourceforge.net allow retrieval of more data.
* lib/Finance/Quote.pm:
* lib/Finance/Quote/Yahoo/NZ.pm: New module from Stephen Judd
.
* lib/Finance/Quote/NZX.pm: Tweak to allow both NZX and Yahoo:NZ
to get quotes for New Zealand Stocks (use method nz).
* CVSTAG: finance_quote_1_09
2005-05-30 Paul Fenwick
* MANIFEST: Updated with files intended for distribution.
* lib/Finance/Quote.pm: Updated $VERSION to 1.09
* CVSTAG: Updated finance_quote_1_09 tag on MANIFEST and
lib/Finace/Quote.pm
* Released updated version 1.09 with new MANIFEST and Quote.pm
to Sourceforge.
* lib/Finance/Quote/VWD.pm: Re-enabled $VERSION and bumped
to 1.01 to allow correct indexing on CPAN, however the
older version currently remains in the 1.09 release.
2005-05-04 David Hampton
* lib/Finance/Quote/FTPortfolios.pm: Update for changes in the
website.
* t/ftportfolios.t: New test module.
* TSP.pm: Replace core parsing with tighter code. Support the
symbols used by both Frank Mori Hess' and Trent Piepho's TSP
modules. Make the symbols case insensitive.
* lib/Finance/Quote/Cdnfundlibrary.pm: Find table by headers
instead of by index.
* test/asegr.t: New module
* lib/Finance/Quote/ASEGR.pm: New module
* lib/Finance/Quote/ASX.pm: Skip any blank lines in the table.
Pass an extra parameter to TableExtract to keep it from doing
unnecessary work that produces warnings.
2005-03-19 David Hampton
* lib/Finance/Quote/Trustnet.pm: Encode the '&' character before
calling the user agent GET function. Fixes bug 747080.
2005-03-19 David Hampton
* almost all files: Collapsed all date parsing code into a single
function. This function handles the date formats provided by all
current quote sources and converts them all into the F::Q standard
of a US date format. It also adds an ISO format date to all
quotes in the new isodate field. Added lots of test functions to
check date formats.
2005-03-19 David Hampton
* lib/Finance/Quote/AEX.pm: Spelling correcting from Frank Mori
Hess.
* lib/Finance/Quote.pm: Documentation correction from Trent
Piepho.
* lib/Finance/Quote/Yahoo/Base.pm (yahoo_request): Fix an
undefined reference when Yahoo ocassionally returns an empty
field.
2005-03-01 David Hampton
* lib/Finance/Quote.pm: New modules. New function to parse files
separated by semicolons instead of commas.
* lib/Finance/Quote/AEX.pm: Worked over modules from Johan van
Oostrum. Most of the old AEX data has migrated elsewhere.
* lib/Finance/Quote/ASX.pm:
* lib/Finance/Quote/Trustnet.pm: Got the modules working again.
* lib/Finance/Quote/ManInvestments.pm:
* lib/Finance/Quote/Platinum.pm: New modules for Australian
investment price sources from Ian Dall .
* lib/Finance/Quote/NZX.pm: New modules for fetching quotes the
from the New Zealand stock exchange. Provided by Michael Curtis.
* lib/Finance/Quote/SEB.pm: New modules for fetching quotes from
the Swedish Bank. Submitted by Tomas Carlsson.
* lib/Finance/Quote/TSP.pm: New modules for fetching quotes from
the US Govt. Thrift Service Plan. Submitted by Frank Mori Hess.
* lib/Finance/Quote/Yahoo/Base.pm: Corrected currency tags for Vienna and Valence.
* lib/Finance/Quote/Yahoo/Brasil.pm: Add new Yahoo Brasil module
from Ismael Orenstein .
* t/*: Various new test modules.
2005-02-09 David Hampton
* lib/Finance/Quote/Fidelity.pm:
* lib/Finance/Quote/Union.pm: Got the modules working again.
* lib/Finance/Quote/Yahoo/Base.pm: Extract the currency directly
from Yahoo, instead of looking it up in an exchange/currency
mapping table.
* t/*: Various new test and updated modules.
2005-02-06 David Hampton
