use vars qw/@EXPORT_OK $VERSION $YAHOO_CURRENCY_CONV_URL/;@EXPORT_OK = qw( known_currencies fetch_live_currencies );
$VERSION = '1.18';
sub methods { return ( known_currencies => \&known_currencies
, fetch_live_currencies => \&fetch_live_currencies
);
}
sub labels { return () };
my %currencies = ( ALL => { name => qq{Albanian Lek} }
, DZD => { name => qq{Algerian Dinar} }
, XAL => { name => qq{Aluminium Ounces} }
, ARS => { name => qq{Argentine Peso} }
, AWG => { name => qq{Aruba Florin} }
, AUD => { name => qq{Australian Dollar} }
, BSD => { name => qq{Bahamian Dollar} }
, BHD => { name => qq{Bahraini Dinar} }
, BDT => { name => qq{Bangladesh Taka} }
, BBD => { name => qq{Barbados Dollar} }
, BYR => { name => qq{Belarus Ruble} }
, BZD => { name => qq{Belize Dollar} }
, BMD => { name => qq{Bermuda Dollar} }
, BTN => { name => qq{Bhutan Ngultrum} }
, BOB => { name => qq{Bolivian Boliviano} }
, BWP => { name => qq{Botswana Pula} }
, BRL => { name => qq{Brazilian Real} }
, GBP => { name => qq{British Pound} }
, BND => { name => qq{Brunei Dollar} }
, BGN => { name => qq{Bulgarian Lev} }
, BIF => { name => qq{Burundi Franc} }
, KHR => { name => qq{Cambodia Riel} }
, CAD => { name => qq{Canadian Dollar} }
, CVE => { name => qq{Cape Verde Escudo} }
, KYD => { name => qq{Cayman Islands Dollar} }
, XOF => { name => qq{CFA Franc (BCEAO)} }
, XAF => { name => qq{CFA Franc (BEAC)} }
, CLP => { name => qq{Chilean Peso} }
, CNY => { name => qq{Chinese Yuan} }
, COP => { name => qq{Colombian Peso} }
, KMF => { name => qq{Comoros Franc} }
, XCP => { name => qq{Copper Pounds} }
, CRC => { name => qq{Costa Rica Colon} }
, HRK => { name => qq{Croatian Kuna} }
, CUP => { name => qq{Cuban Peso} }
, CZK => { name => qq{Czech Koruna} }
, DKK => { name => qq{Danish Krone} }
, DJF => { name => qq{Dijibouti Franc} }
, DOP => { name => qq{Dominican Peso} }
, XCD => { name => qq{East Caribbean Dollar} }
, ECS => { name => qq{Ecuador Sucre} }
, EGP => { name => qq{Egyptian Pound} }
, SVC => { name => qq{El Salvador Colon} }
, ERN => { name => qq{Eritrea Nakfa} }
, EEK => { name => qq{Estonian Kroon} }
, ETB => { name => qq{Ethiopian Birr} }
, EUR => { name => qq{Euro} }
, FKP => { name => qq{Falkland Islands Pound} }
, FJD => { name => qq{Fiji Dollar} }
, GMD => { name => qq{Gambian Dalasi} }
, GHC => { name => qq{Ghanian Cedi} }
, GIP => { name => qq{Gibraltar Pound} }
, XAU => { name => qq{Gold Ounces} }
, GTQ => { name => qq{Guatemala Quetzal} }
, GNF => { name => qq{Guinea Franc} }
, GYD => { name => qq{Guyana Dollar} }
, HTG => { name => qq{Haiti Gourde} }
, HNL => { name => qq{Honduras Lempira} }
, HKD => { name => qq{Hong Kong Dollar} }
, HUF => { name => qq{Hungarian Forint} }
, ISK => { name => qq{Iceland Krona} }
, INR => { name => qq{Indian Rupee} }
, IDR => { name => qq{Indonesian Rupiah} }
, IRR => { name => qq{Iran Rial} }
, IQD => { name => qq{Iraqi Dinar} }
, ILS => { name => qq{Israeli Shekel} }
, JMD => { name => qq{Jamaican Dollar} }
, JPY => { name => qq{Japanese Yen} }
, JOD => { name => qq{Jordanian Dinar} }
, KZT => { name => qq{Kazakhstan Tenge} }
, KES => { name => qq{Kenyan Shilling} }
, KRW => { name => qq{South Korean Won} }
, KWD => { name => qq{Kuwaiti Dinar} }
, LAK => { name => qq{Lao Kip} }
, LVL => { name => qq{Latvian Lat} }
, LBP => { name => qq{Lebanese Pound} }
, LSL => { name => qq{Lesotho Loti} }
, LRD => { name => qq{Liberian Dollar} }
, LYD => { name => qq{Libyan Dinar} }
, LTL => { name => qq{Lithuanian Lita} }
, MOP => { name => qq{Macau Pataca} }
, MKD => { name => qq{Macedonian Denar} }
, MWK => { name => qq{Malawi Kwacha} }
, MYR => { name => qq{Malaysian Ringgit} }
, MVR => { name => qq{Maldives Rufiyaa} }
, MTL => { name => qq{Maltese Lira} }
, MRO => { name => qq{Mauritania Ougulya} }
, MUR => { name => qq{Mauritius Rupee} }
, MXN => { name => qq{Mexican Peso} }
, MDL => { name => qq{Moldovan Leu} }
, MNT => { name => qq{Mongolian Tugrik} }
, MAD => { name => qq{Moroccan Dirham} }
, MMK => { name => qq{Myanmar Kyat} }
, NAD => { name => qq{Namibian Dollar} }
, NPR => { name => qq{Nepalese Rupee} }
, ANG => { name => qq{Neth Antilles Guilder} }
, TRY => { name => qq{Turkish Lira} }
, NZD => { name => qq{New Zealand Dollar} }
, NIO => { name => qq{Nicaragua Cordoba} }
, NGN => { name => qq{Nigerian Naira} }
, KPW => { name => qq{North Korean Won} }
, NOK => { name => qq{Norwegian Krone} }
, OMR => { name => qq{Omani Rial} }
, XPF => { name => qq{Pacific Franc} }
, PKR => { name => qq{Pakistani Rupee} }
, XPD => { name => qq{Palladium Ounces} }
, PAB => { name => qq{Panama Balboa} }
, PGK => { name => qq{Papua New Guinea Kina} }
, PYG => { name => qq{Paraguayan Guarani} }
, PEN => { name => qq{Peruvian Nuevo Sol} }
, PHP => { name => qq{Philippine Peso} }
, XPT => { name => qq{Platinum Ounces} }
, PLN => { name => qq{Polish Zloty} }
, QAR => { name => qq{Qatar Rial} }
, RON => { name => qq{Romanian New Leu} }
, RUB => { name => qq{Russian Rouble} }
, RWF => { name => qq{Rwanda Franc} }
, WST => { name => qq{Samoa Tala} }
, STD => { name => qq{Sao Tome Dobra} }
, SAR => { name => qq{Saudi Arabian Riyal} }
, SCR => { name => qq{Seychelles Rupee} }
, SLL => { name => qq{Sierra Leone Leone} }
, XAG => { name => qq{Silver Ounces} }
, SGD => { name => qq{Singapore Dollar} }
, SKK => { name => qq{Slovak Koruna} }
, SIT => { name => qq{Slovenian Tolar} }
, SBD => { name => qq{Solomon Islands Dollar} }
, SOS => { name => qq{Somali Shilling} }
, ZAR => { name => qq{South African Rand} }
, LKR => { name => qq{Sri Lanka Rupee} }
, SHP => { name => qq{St Helena Pound} }
, SZL => { name => qq{Swaziland Lilageni} }
, SEK => { name => qq{Swedish Krona} }
, CHF => { name => qq{Swiss Franc} }
, SYP => { name => qq{Syrian Pound} }
, TWD => { name => qq{Taiwan Dollar} }
, TZS => { name => qq{Tanzanian Shilling} }
, THB => { name => qq{Thai Baht} }
, TOP => { name => qq{Tonga Pa'ang} }
, TTD => { name => qq{Trinidad & Tobago Dollar} }
, TND => { name => qq{Tunisian Dinar} }
, USD => { name => qq{United States Dollar} }
, AED => { name => qq{UAE Dirham} }
, UGX => { name => qq{Ugandan Shilling} }
, UAH => { name => qq{Ukraine Hryvnia} }
, UYU => { name => qq{Uruguayan New Peso} }
, VUV => { name => qq{Vanuatu Vatu} }
, VEF => { name => qq{Venezuelan Bolivar Fuerte}}
, VND => { name => qq{Vietnam Dong} }
, YER => { name => qq{Yemen Riyal} }
, ZMK => { name => qq{Zambian Kwacha} }
, ZWD => { name => qq{Zimbabwe dollar} }
, SDG => { name => qq{Sudanese Pound} }
);
sub known_currencies {
return \%currencies;
}
sub fetch_live_currencies {
my $ua = LWP::UserAgent->new();
my $data = $ua->request(GET $YAHOO_CURRENCY_CONV_URL)->content;
my $p = HTML::Parser->new( start_h => [\&_start_handler, "tagname, attr"]
, end_h => [\&_end_handler, "tagname"]
, text_h => [\&_text_handler, "dtext"]
);
$p->utf8_mode(1);
$p->parse( Encode::encode_utf8($data) );
return _live_currencies();
}
{
my %live_currencies = ();
my $in_currency_list = 0;
my $in_currency_option = 0;
my $currency_text = '';
my $currency_code = '';
sub _start_handler {
my ($tagname, $attr) = @_;
if ( lc $tagname eq 'select'
&&
exists $attr->{name} && lc $attr->{name} eq 'currency-1'
) {
%live_currencies = ();
$in_currency_list = 1;
}
elsif ( $in_currency_list == 1
&&
lc $tagname eq 'option'
) {
$in_currency_option = 1;
$currency_code = $attr->{value};
$currency_text = '';
}
}
sub _end_handler {
my ($tagname) = @_;
if ( lc $tagname eq 'select'
&&
$in_currency_list == 1
) {
$in_currency_list = 0;
}
elsif ( $in_currency_list == 1
&&
$in_currency_option == 1
&&
lc $tagname eq 'option'
) {
$currency_text =~ s/\s*\([A-Z]+\)\s*$//;
$live_currencies{$currency_code} = { name => $currency_text };
$in_currency_option = 0;
}
}
sub _text_handler {
my ($dtext) = @_;
if ( $in_currency_list == 1
&&
$in_currency_option == 1
) {
$currency_text .= $dtext;
}
}
sub _live_currencies {
return \%live_currencies;
}
}
1;