ok
Mini Shell
package Locale::Codes::Currency_Retired;
# This file was automatically generated. Any changes to this file will
# be lost the next time 'deprecate_codes' is run.
# Generated on: Mon Jun 3 10:51:27 EDT 2013
=pod
=head1 NAME
Locale::Codes::Currency_Retired - retired currency codes for the Locale::Codes::Currency module
=head1 SYNOPSIS
This module contains data used by the Locale::Codes::Currency module. It is
not intended to be used directly, and contains no callable routines.
=head1 AUTHOR
See Locale::Codes for full author history.
Currently maintained by Sullivan Beck (sbeck@cpan.org).
=head1 COPYRIGHT
Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
Copyright (c) 2001-2010 Neil Bowers
Copyright (c) 2010-2013 Sullivan Beck
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
use strict;
require 5.006;
use warnings;
use utf8;
our($VERSION);
$VERSION='3.26';
$Locale::Codes::Retired{'currency'}{'alpha'}{'code'} = {
q(ADP) => q(Andorran Peseta),
q(AFA) => q(Afghani),
q(AON) => q(New Kwanza),
q(AOR) => q(Kwanza Reajustado),
q(ATS) => q(Schilling),
q(AZM) => q(Azerbaijanian Manat),
q(BEF) => q(Belgian Franc),
q(BGL) => q(Lev),
q(BYB) => q(Belarussian Ruble),
q(CYP) => q(Cyprus Pound),
q(DEM) => q(German Mark),
q(ECS) => q(Sucre),
q(ECV) => q(Unidad de Valor Constante (UVC)),
q(EEK) => q(Kroon),
q(ESP) => q(Spanish Peseta),
q(FIM) => q(Markka),
q(FRF) => q(French Franc),
q(GHC) => q(Cedi),
q(GRD) => q(Drachma),
q(GWP) => q(Guinea-Bissau Peso),
q(IEP) => q(Irish Pound),
q(ITL) => q(Italian Lira),
q(LUF) => q(Luxembourg Franc),
q(MGF) => q(Malagasy Franc),
q(MTL) => q(Maltese Lira),
q(MZM) => q(Metical),
q(NLG) => q(Netherlands Guilder),
q(PTE) => q(Portuguese Escudo),
q(ROL) => q(Leu),
q(RUR) => q(Russian Ruble),
q(SDD) => q(Sudanese Dinar),
q(SIT) => q(Tolar),
q(SKK) => q(Slovak Koruna),
q(SRG) => q(Surinam Guilder),
q(TJR) => q(Tajik Ruble),
q(TMM) => q(Manat),
q(TPE) => q(Timor Escudo),
q(TRL) => q(Turkish Lira),
q(UAK) => q(Karbovanets),
q(VEB) => q(Bolivar),
q(XB5) => q(European Unit of Account 17),
q(XEU) => q(ECU (until 1998-12-31)),
q(XFO) => q(Gold-Franc),
q(XFU) => q(UIC-Franc),
q(YUM) => q(New Dinar),
q(ZAL) => q(Financial Rand),
q(ZRN) => q(New Zaire),
q(ZWD) => q(Zimbabwe Dollar),
};
$Locale::Codes::Retired{'currency'}{'num'}{'code'} = {
};
$Locale::Codes::Retired{'currency'}{'alpha'}{'name'} = {
q(andorran peseta) => [ q(ADP), q(Andorran Peseta) ],
q(aruban guilder) => [ q(AWG), q(Aruban Guilder) ],
q(belgian franc) => [ q(BEF), q(Belgian Franc) ],
q(bermudian dollar (customarily known as bermuda dollar)) => [ q(BMD), q(Bermudian Dollar (customarily known as Bermuda Dollar)) ],
q(bolivar) => [ q(VEB), q(Bolivar) ],
q(bolivar fuerte) => [ q(VEF), q(Bolivar Fuerte) ],
q(bond markets units european composite unit (eurco)) => [ q(XBA), q(Bond Markets Units European Composite Unit (EURCO)) ],
q(candian dollar) => [ q(CAD), q(Candian Dollar) ],
q(cedi) => [ q(GHS), q(Cedi) ],
q(convertible marks) => [ q(BAM), q(Convertible Marks) ],
q(cyprus pound) => [ q(CYP), q(Cyprus Pound) ],
q(dinar) => [ q(BHD), q(Dinar) ],
q(drachma) => [ q(GRD), q(Drachma) ],
q(ecu (until 1998-12-31)) => [ q(XEU), q(ECU (until 1998-12-31)) ],
q(european composite unit) => [ q(XBA), q(European Composite Unit) ],
q(european monetary unit) => [ q(XBB), q(European Monetary Unit) ],
q(european monetary unit (e.m.u.-6)) => [ q(XBB), q(European Monetary Unit (E.M.U.-6)) ],
q(european unit of account 17) => [ q(XB5), q(European Unit of Account 17) ],
q(european unit of account 17(e.u.a.-17)) => [ q(XBD), q(European Unit of Account 17(E.U.A.-17)) ],
q(european unit of account 9) => [ q(XBC), q(European Unit of Account 9) ],
q(european unit of account 9(e.u.a.-9)) => [ q(XBC), q(European Unit of Account 9(E.U.A.-9)) ],
q(financial rand) => [ q(ZAL), q(Financial Rand) ],
q(franc congolais) => [ q(CDF), q(Franc Congolais) ],
q(french franc) => [ q(FRF), q(French Franc) ],
q(german mark) => [ q(DEM), q(German Mark) ],
q(gold-franc) => [ q(XFO), q(Gold-Franc) ],
q(guinea-bissau peso) => [ q(GWP), q(Guinea-Bissau Peso) ],
q(irish pound) => [ q(IEP), q(Irish Pound) ],
q(italian lira) => [ q(ITL), q(Italian Lira) ],
q(karbovanets) => [ q(UAK), q(Karbovanets) ],
q(kroon) => [ q(EEK), q(Kroon) ],
q(kuna) => [ q(HRK), q(Kuna) ],
q(kwanza reajustado) => [ q(AOR), q(Kwanza Reajustado) ],
q(leu) => [ q(RON), q(Leu) ],
q(lev) => [ q(BGL), q(Lev) ],
q(luxembourg franc) => [ q(LUF), q(Luxembourg Franc) ],
q(malagasy franc) => [ q(MGF), q(Malagasy Franc) ],
q(maltese lira) => [ q(MTL), q(Maltese Lira) ],
q(manat) => [ q(TMT), q(Manat) ],
q(markka) => [ q(FIM), q(Markka) ],
q(metical) => [ q(MZN), q(Metical) ],
q(mexican nuevo peso) => [ q(MXN), q(Mexican Nuevo Peso) ],
q(netherlands antillian guilder) => [ q(ANG), q(Netherlands Antillian Guilder) ],
q(netherlands guilder) => [ q(NLG), q(Netherlands Guilder) ],
q(new dinar) => [ q(YUM), q(New Dinar) ],
q(new kwanza) => [ q(AON), q(New Kwanza) ],
q(new leu) => [ q(RON), q(New Leu) ],
q(new manat) => [ q(TMT), q(New Manat) ],
q(new zaire) => [ q(ZRN), q(New Zaire) ],
q(portuguese escudo) => [ q(PTE), q(Portuguese Escudo) ],
q(schilling) => [ q(ATS), q(Schilling) ],
q(sdr) => [ q(XDR), q(SDR) ],
q(shekel) => [ q(ILS), q(Shekel) ],
q(slovak koruna) => [ q(SKK), q(Slovak Koruna) ],
q(spanish peseta) => [ q(ESP), q(Spanish Peseta) ],
q(st. helena pound) => [ q(SHP), q(St. Helena Pound) ],
q(sudanese dinar) => [ q(SDD), q(Sudanese Dinar) ],
q(surinam guilder) => [ q(SRG), q(Surinam Guilder) ],
q(tajik ruble) => [ q(TJR), q(Tajik Ruble) ],
q(timor escudo) => [ q(TPE), q(Timor Escudo) ],
q(tolar) => [ q(SIT), q(Tolar) ],
q(tunisian dollar) => [ q(TND), q(Tunisian Dollar) ],
q(uic-franc) => [ q(XFU), q(UIC-Franc) ],
q(unidad de valor constante (uvc)) => [ q(ECV), q(Unidad de Valor Constante (UVC)) ],
q(unidades de formento) => [ q(CLF), q(Unidades de Formento) ],
q(uruguay peso en unidades indexadas) => [ q(UYI), q(Uruguay Peso en Unidades Indexadas) ],
};
$Locale::Codes::Retired{'currency'}{'num'}{'name'} = {
q(bolivar fuerte) => [ q(937), q(Bolivar Fuerte) ],
q(cedi) => [ q(936), q(Cedi) ],
q(leu) => [ q(946), q(Leu) ],
q(metical) => [ q(943), q(Metical) ],
q(new manat) => [ q(934), q(New Manat) ],
};
1;
Zerion Mini Shell 1.0