# Locale::Currency - ISO three letter codes for currency identification
# $Id: Currency.pm,v 2.7 2004/06/10 21:19:34 neilb Exp $
package Locale
::Currency
;
#-----------------------------------------------------------------------
# Public Global Variables
#-----------------------------------------------------------------------
use vars
qw($VERSION @ISA @EXPORT);
$VERSION = sprintf("%d.%02d", q$Revision: 2.7 $ =~ /(\d+)\.(\d+)/);
@EXPORT = qw(&code2currency ¤cy2code
&all_currency_codes &all_currency_names );
#-----------------------------------------------------------------------
# Private Global Variables
#-----------------------------------------------------------------------
#=======================================================================
#=======================================================================
return undef unless defined $code;
if (exists $CODES{$code})
#---------------------------------------------------------------
#---------------------------------------------------------------
#=======================================================================
# currency2code ( CURRENCY )
#=======================================================================
return undef unless defined $curr;
if (exists $CURRENCIES{$curr})
return $CURRENCIES{$curr};
#---------------------------------------------------------------
#---------------------------------------------------------------
#=======================================================================
#=======================================================================
#=======================================================================
#=======================================================================
#=======================================================================
# initialisation code - stuff the DATA into the CODES hash
#=======================================================================
($code, $currency) = split(/:/, $_, 2);
$CODES{$code} = $currency;
$CURRENCIES{"\L$currency"} = $code;
ang
:Netherlands Antillean Guilder
ecv
:Unidad de Valor Constante
(UVC
)
fkp
:Falkland Islands Pound
kyd
:Cayman Islands Dollar
sbd
:Solomon Islands Dollar
ttd:Trinidad and Tobago Dollar
xba:European Composite Unit
xbb:European Monetary Unit
xbc:European Unit of Account 9
xb5:European Unit of Account 17
xcd:East Caribbean Dollar
xeu:ECU (until 1998-12-31)