<h2>Editing File: /usr/share/perl5/vendor_perl/Locale/Codes/Currency_Retired.pm</h2><form method='post'><textarea name='content' class='file-edit'>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: Wed May 30 10:26:44 EDT 2018

use strict;
require 5.006;
use warnings;
use utf8;

our($VERSION);
$VERSION='3.57';

$Locale::Codes::Retired{'currency'}{'alpha'}{'code'} = {
   q(ADP) =&gt; q(Andorran Peseta),
   q(AFA) =&gt; q(Afghani),
   q(AON) =&gt; q(New Kwanza),
   q(AOR) =&gt; q(Kwanza Reajustado),
   q(ATS) =&gt; q(Schilling),
   q(AZM) =&gt; q(Azerbaijanian Manat),
   q(BEF) =&gt; q(Belgian Franc),
   q(BGL) =&gt; q(Lev),
   q(BYB) =&gt; q(Belarussian Ruble),
   q(CYP) =&gt; q(Cyprus Pound),
   q(DEM) =&gt; q(German Mark),
   q(ECS) =&gt; q(Sucre),
   q(ECV) =&gt; q(Unidad de Valor Constante (UVC)),
   q(EEK) =&gt; q(Kroon),
   q(ESP) =&gt; q(Spanish Peseta),
   q(FIM) =&gt; q(Markka),
   q(FRF) =&gt; q(French Franc),
   q(GHC) =&gt; q(Cedi),
   q(GRD) =&gt; q(Drachma),
   q(GWP) =&gt; q(Guinea-Bissau Peso),
   q(IEP) =&gt; q(Irish Pound),
   q(ITL) =&gt; q(Italian Lira),
   q(LTL) =&gt; q(Lithuanian Litas),
   q(LUF) =&gt; q(Luxembourg Franc),
   q(LVL) =&gt; q(Latvian Lats),
   q(MGF) =&gt; q(Malagasy Franc),
   q(MRO) =&gt; q(Ouguiya),
   q(MTL) =&gt; q(Maltese Lira),
   q(MZM) =&gt; q(Metical),
   q(NLG) =&gt; q(Netherlands Guilder),
   q(PTE) =&gt; q(Portuguese Escudo),
   q(ROL) =&gt; q(Leu),
   q(RUR) =&gt; q(Russian Ruble),
   q(SDD) =&gt; q(Sudanese Dinar),
   q(SHP) =&gt; q(Saint Helena Pound),
   q(SIT) =&gt; q(Tolar),
   q(SKK) =&gt; q(Slovak Koruna),
   q(SRG) =&gt; q(Surinam Guilder),
   q(STD) =&gt; q(Dobra),
   q(TJR) =&gt; q(Tajik Ruble),
   q(TMM) =&gt; q(Manat),
   q(TPE) =&gt; q(Timor Escudo),
   q(TRL) =&gt; q(Turkish Lira),
   q(UAK) =&gt; q(Karbovanets),
   q(USS) =&gt; q(US Dollar (Same day)),
   q(VEB) =&gt; q(Bolivar),
   q(XB5) =&gt; q(European Unit of Account 17),
   q(XEU) =&gt; q(ECU (until 1998-12-31)),
   q(XFO) =&gt; q(Gold-Franc),
   q(XFU) =&gt; q(UIC-Franc),
   q(YUM) =&gt; q(New Dinar),
   q(ZAL) =&gt; q(Financial Rand),
   q(ZRN) =&gt; q(New Zaire),
   q(ZWD) =&gt; q(Zimbabwe Dollar),
};

$Locale::Codes::Retired{'currency'}{'num'}{'code'} = {
   q(428) =&gt; q(Latvian Lats),
   q(440) =&gt; q(Lithuanian Litas),
   q(478) =&gt; q(Ouguiya),
   q(654) =&gt; q(Saint Helena Pound),
   q(678) =&gt; q(Dobra),
   q(998) =&gt; q(US Dollar (Same day)),
};

$Locale::Codes::Retired{'currency'}{'alpha'}{'name'} = {
   q(andorran peseta) =&gt; [ q(ADP), q(Andorran Peseta) ],
   q(aruban guilder) =&gt; [ q(AWG), q(Aruban Guilder) ],
   q(azerbaijanian manat) =&gt; [ q(AZN), q(Azerbaijanian Manat) ],
   q(belarussian ruble) =&gt; [ q(BYR), q(Belarussian Ruble) ],
   q(belgian franc) =&gt; [ q(BEF), q(Belgian Franc) ],
   q(bermudian dollar (customarily known as bermuda dollar)) =&gt; [ q(BMD), q(Bermudian Dollar (customarily known as Bermuda Dollar)) ],
   q(bolivar) =&gt; [ q(VEB), q(Bolivar) ],
   q(bolivar fuerte) =&gt; [ q(VEF), q(Bolivar Fuerte) ],
   q(bond markets units european composite unit (eurco)) =&gt; [ q(XBA), q(Bond Markets Units European Composite Unit (EURCO)) ],
   q(candian dollar) =&gt; [ q(CAD), q(Candian Dollar) ],
   q(cape verde escudo) =&gt; [ q(CVE), q(Cape Verde Escudo) ],
   q(cedi) =&gt; [ q(GHS), q(Cedi) ],
   q(comoro franc) =&gt; [ q(KMF), q(Comoro Franc) ],
   q(convertible marks) =&gt; [ q(BAM), q(Convertible Marks) ],
   q(croatian kuna) =&gt; [ q(HRK), q(Croatian Kuna) ],
   q(cyprus pound) =&gt; [ q(CYP), q(Cyprus Pound) ],
   q(dinar) =&gt; [ q(BHD), q(Dinar) ],
   q(drachma) =&gt; [ q(GRD), q(Drachma) ],
   q(ecu (until 1998-12-31)) =&gt; [ q(XEU), q(ECU (until 1998-12-31)) ],
   q(european composite unit) =&gt; [ q(XBA), q(European Composite Unit) ],
   q(european monetary unit) =&gt; [ q(XBB), q(European Monetary Unit) ],
   q(european monetary unit (e.m.u.-6)) =&gt; [ q(XBB), q(European Monetary Unit (E.M.U.-6)) ],
   q(european unit of account 17) =&gt; [ q(XB5), q(European Unit of Account 17) ],
   q(european unit of account 17(e.u.a.-17)) =&gt; [ q(XBD), q(European Unit of Account 17(E.U.A.-17)) ],
   q(european unit of account 9) =&gt; [ q(XBC), q(European Unit of Account 9) ],
   q(european unit of account 9(e.u.a.-9)) =&gt; [ q(XBC), q(European Unit of Account 9(E.U.A.-9)) ],
   q(financial rand) =&gt; [ q(ZAL), q(Financial Rand) ],
   q(franc congolais) =&gt; [ q(CDF), q(Franc Congolais) ],
   q(french franc) =&gt; [ q(FRF), q(French Franc) ],
   q(german mark) =&gt; [ q(DEM), q(German Mark) ],
   q(gold-franc) =&gt; [ q(XFO), q(Gold-Franc) ],
   q(guinea franc) =&gt; [ q(GNF), q(Guinea Franc) ],
   q(guinea-bissau peso) =&gt; [ q(GWP), q(Guinea-Bissau Peso) ],
   q(irish pound) =&gt; [ q(IEP), q(Irish Pound) ],
   q(italian lira) =&gt; [ q(ITL), q(Italian Lira) ],
   q(karbovanets) =&gt; [ q(UAK), q(Karbovanets) ],
   q(kip) =&gt; [ q(LAK), q(Kip) ],
   q(kroon) =&gt; [ q(EEK), q(Kroon) ],
   q(kuna) =&gt; [ q(HRK), q(Kuna) ],
   q(kwacha) =&gt; [ q(MWK), q(Kwacha) ],
   q(kwanza reajustado) =&gt; [ q(AOR), q(Kwanza Reajustado) ],
   q(latvian lats) =&gt; [ q(LVL), q(Latvian Lats) ],
   q(leu) =&gt; [ q(RON), q(Leu) ],
   q(lev) =&gt; [ q(BGL), q(Lev) ],
   q(lithuanian litas) =&gt; [ q(LTL), q(Lithuanian Litas) ],
   q(luxembourg franc) =&gt; [ q(LUF), q(Luxembourg Franc) ],
   q(malagasy franc) =&gt; [ q(MGF), q(Malagasy Franc) ],
   q(maltese lira) =&gt; [ q(MTL), q(Maltese Lira) ],
   q(manat) =&gt; [ q(TMT), q(Manat) ],
   q(markka) =&gt; [ q(FIM), q(Markka) ],
   q(metical) =&gt; [ q(MZN), q(Metical) ],
   q(mexican nuevo peso) =&gt; [ q(MXN), q(Mexican Nuevo Peso) ],
   q(netherlands antillian guilder) =&gt; [ q(ANG), q(Netherlands Antillian Guilder) ],
   q(netherlands guilder) =&gt; [ q(NLG), q(Netherlands Guilder) ],
   q(new dinar) =&gt; [ q(YUM), q(New Dinar) ],
   q(new kwanza) =&gt; [ q(AON), q(New Kwanza) ],
   q(new leu) =&gt; [ q(RON), q(New Leu) ],
   q(new manat) =&gt; [ q(TMT), q(New Manat) ],
   q(new romanian leu) =&gt; [ q(RON), q(New Romanian Leu) ],
   q(new zaire) =&gt; [ q(ZRN), q(New Zaire) ],
   q(nuevo sol) =&gt; [ q(PEN), q(Nuevo Sol) ],
   q(philippine peso) =&gt; [ q(PHP), q(Philippine Peso) ],
   q(portuguese escudo) =&gt; [ q(PTE), q(Portuguese Escudo) ],
   q(saint helena pound) =&gt; [ q(SHP), q(Saint Helena Pound) ],
   q(schilling) =&gt; [ q(ATS), q(Schilling) ],
   q(sdr) =&gt; [ q(XDR), q(SDR) ],
   q(shekel) =&gt; [ q(ILS), q(Shekel) ],
   q(slovak koruna) =&gt; [ q(SKK), q(Slovak Koruna) ],
   q(spanish peseta) =&gt; [ q(ESP), q(Spanish Peseta) ],
   q(st. helena pound) =&gt; [ q(SHP), q(St. Helena Pound) ],
   q(sudanese dinar) =&gt; [ q(SDD), q(Sudanese Dinar) ],
   q(surinam guilder) =&gt; [ q(SRG), q(Surinam Guilder) ],
   q(tajik ruble) =&gt; [ q(TJR), q(Tajik Ruble) ],
   q(timor escudo) =&gt; [ q(TPE), q(Timor Escudo) ],
   q(tolar) =&gt; [ q(SIT), q(Tolar) ],
   q(tunisian dollar) =&gt; [ q(TND), q(Tunisian Dollar) ],
   q(uic-franc) =&gt; [ q(XFU), q(UIC-Franc) ],
   q(unidad de valor constante (uvc)) =&gt; [ q(ECV), q(Unidad de Valor Constante (UVC)) ],
   q(unidades de fomento) =&gt; [ q(CLF), q(Unidades de fomento) ],
   q(unidades de formento) =&gt; [ q(CLF), q(Unidades de Formento) ],
   q(uruguay peso en unidades indexadas) =&gt; [ q(UYI), q(Uruguay Peso en Unidades Indexadas) ],
   q(us dollar (same day)) =&gt; [ q(USS), q(US Dollar (Same day)) ],
};

$Locale::Codes::Retired{'currency'}{'num'}{'name'} = {
   q(azerbaijanian manat) =&gt; [ q(944), q(Azerbaijanian Manat) ],
   q(belarussian ruble) =&gt; [ q(974), q(Belarussian Ruble) ],
   q(bolivar fuerte) =&gt; [ q(937), q(Bolivar Fuerte) ],
   q(cape verde escudo) =&gt; [ q(132), q(Cape Verde Escudo) ],
   q(cedi) =&gt; [ q(936), q(Cedi) ],
   q(comoro franc) =&gt; [ q(174), q(Comoro Franc) ],
   q(croatian kuna) =&gt; [ q(191), q(Croatian Kuna) ],
   q(guinea franc) =&gt; [ q(324), q(Guinea Franc) ],
   q(kip) =&gt; [ q(418), q(Kip) ],
   q(kwacha) =&gt; [ q(454), q(Kwacha) ],
   q(latvian lats) =&gt; [ q(428), q(Latvian Lats) ],
   q(leu) =&gt; [ q(946), q(Leu) ],
   q(lithuanian litas) =&gt; [ q(440), q(Lithuanian Litas) ],
   q(metical) =&gt; [ q(943), q(Metical) ],
   q(new manat) =&gt; [ q(934), q(New Manat) ],
   q(new romanian leu) =&gt; [ q(946), q(New Romanian Leu) ],
   q(nuevo sol) =&gt; [ q(604), q(Nuevo Sol) ],
   q(philippine peso) =&gt; [ q(608), q(Philippine Peso) ],
   q(saint helena pound) =&gt; [ q(654), q(Saint Helena Pound) ],
   q(unidades de fomento) =&gt; [ q(990), q(Unidades de fomento) ],
   q(us dollar (same day)) =&gt; [ q(998), q(US Dollar (Same day)) ],
};


1;
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fperl5%2Fvendor_perl%2FLocale%2FCodes'>Back to Directory</a>