<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">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 Feb 27 10:06:46 EST 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 calleable 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.25';

$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(LUF) =&gt; q(Luxembourg Franc),
   q(MGF) =&gt; q(Malagasy Franc),
   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(SIT) =&gt; q(Tolar),
   q(SKK) =&gt; q(Slovak Koruna),
   q(SRG) =&gt; q(Surinam Guilder),
   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(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'} = {
};

$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(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(cedi) =&gt; [ q(GHS), q(Cedi) ],
   q(convertible marks) =&gt; [ q(BAM), q(Convertible Marks) ],
   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-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(kroon) =&gt; [ q(EEK), q(Kroon) ],
   q(kuna) =&gt; [ q(HRK), q(Kuna) ],
   q(kwanza reajustado) =&gt; [ q(AOR), q(Kwanza Reajustado) ],
   q(leu) =&gt; [ q(RON), q(Leu) ],
   q(lev) =&gt; [ q(BGL), q(Lev) ],
   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 zaire) =&gt; [ q(ZRN), q(New Zaire) ],
   q(portuguese escudo) =&gt; [ q(PTE), q(Portuguese Escudo) ],
   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 formento) =&gt; [ q(CLF), q(Unidades de Formento) ],
   q(uruguay peso en unidades indexadas) =&gt; [ q(UYI), q(Uruguay Peso en Unidades Indexadas) ],
};

$Locale::Codes::Retired{'currency'}{'num'}{'name'} = {
   q(bolivar fuerte) =&gt; [ q(937), q(Bolivar Fuerte) ],
   q(cedi) =&gt; [ q(936), q(Cedi) ],
   q(leu) =&gt; [ q(946), q(Leu) ],
   q(metical) =&gt; [ q(943), q(Metical) ],
   q(new manat) =&gt; [ q(934), q(New Manat) ],
};


1;
</pre></body></html>