/usr/share/perl5/Finance/Quote/Yahoo/Australia.pm is in libfinance-quote-perl 1.17+git20110918-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 | #!/usr/bin/perl -w
#
# Copyright (C) 1998, Dj Padzensky <djpadz@padz.net>
# Copyright (C) 1998, 1999 Linas Vepstas <linas@linas.org>
# Copyright (C) 2000, Yannick LE NY <y-le-ny@ifrance.com>
# Copyright (C) 2000, Paul Fenwick <pjf@cpan.org>
# Copyright (C) 2000, Brent Neal <brentn@users.sourceforge.net>
#
# 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., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA
#
#
# This code derived from Padzensky's work on package Finance::YahooQuote,
# but extends its capabilites to encompas a greater number of data sources.
package Finance::Quote::Yahoo::Australia;
require 5.005;
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use Finance::Quote::Yahoo::Base qw/yahoo_request base_yahoo_labels/;
use vars qw/$VERSION $YAHOO_AUSTRALIA_URL/;
$VERSION = '1.17';
# URLs of where to obtain information.
$YAHOO_AUSTRALIA_URL = ("http://au.finance.yahoo.com/d/quotes.csv");
sub methods {return (australia => \&yahoo_australia,
yahoo_australia => \&yahoo_australia)};
{
my @labels = (base_yahoo_labels(),"currency","method","exchange");
sub labels { return (australia => \@labels,
yahoo_australia => \@labels); }
}
sub yahoo_australia
{
my $quoter = shift;
my @symbols = @_;
return unless @symbols; # Nothing if no symbols.
# Yahoo Australia needs AX. appended to indicate that we're
# dealing with Australian stocks.
# This does all the hard work.
my %info = yahoo_request($quoter,$YAHOO_AUSTRALIA_URL,\@symbols,".AX");
foreach my $symbol (@symbols) {
next unless $info{$symbol,"success"};
$info{$symbol,"exchange"} = "Australian Stock Exchange";
$info{$symbol,"method"} = "yahoo_australia";
}
return %info if wantarray;
return \%info;
}
1;
=head1 NAME
Finance::Quote::Yahoo::Australia - Fetch Australian stock quotes via Yahoo.
=head1 SYNOPSIS
use Finance::Quote;
my $q = Finance::Quote->new;
my %info = $q->fetch("yahoo_australia","BHP"); # Use this module only.
my %info = $q->fetch("australia","BHP"); # Failover with other methods.
=head1 DESCRIPTION
This module allows information to be fetched from Yahoo abouts stocks
traded on the Australian Stock Exchange. Information about indexes
(such as the All Ordinaries) are not available through this module,
although if information is requested from the "australia" source
then these will automatically failover to direct queries from the
Australian Stock Exchange.
This module is loaded by default on a Finance::Quote object, although
it can be explicitly loaded by passing the argument "Yahoo::Australia"
to Finance::Quote->new().
This module provides both the "australia" and "yahoo_australia" fetch
methods. You should use the "australia" method if you wish to allow
failovers to other sources, and "yahoo_australia" if you only want
to obtain quotes from this module.
Information obtained via this module is governed by Yahoo's terms
and conditions, see http://au.finance.yahoo.com/ for more details.
=head1 LABELS RETURNED
This module returns all the standard labels (where available)
provided by Yahoo, as well as the currency label. See
Finance::Quote::Yahoo::Base for more information.
=head1 SEE ALSO
Yahoo Australia, http://au.finance.yahoo.com/
Finance::Quote::Yahoo::Base
=cut
|