2 # Locale::Currency - ISO three letter codes for currency identification
5 # $Id: Currency.pm,v 2.1 2002/02/06 04:07:10 neilb Exp $
8 package Locale::Currency;
14 #-----------------------------------------------------------------------
15 # Public Global Variables
16 #-----------------------------------------------------------------------
17 use vars qw($VERSION @ISA @EXPORT);
18 $VERSION = sprintf("%d.%02d", q$Revision: 2.1 $ =~ /(\d+)\.(\d+)/);
20 @EXPORT = qw(&code2currency ¤cy2code
21 &all_currency_codes &all_currency_names );
23 #-----------------------------------------------------------------------
24 # Private Global Variables
25 #-----------------------------------------------------------------------
30 #=======================================================================
32 # code2currency( CODE )
34 #=======================================================================
40 return undef unless defined $code;
42 if (exists $CODES{$code})
48 #---------------------------------------------------------------
49 # no such currency code!
50 #---------------------------------------------------------------
56 #=======================================================================
58 # currency2code ( CURRENCY )
60 #=======================================================================
66 return undef unless defined $curr;
68 if (exists $CURRENCIES{$curr})
70 return $CURRENCIES{$curr};
74 #---------------------------------------------------------------
76 #---------------------------------------------------------------
82 #=======================================================================
84 # all_currency_codes()
86 #=======================================================================
87 sub all_currency_codes
93 #=======================================================================
95 # all_currency_names()
97 #=======================================================================
98 sub all_currency_names
100 return values %CODES;
104 #=======================================================================
105 # initialisation code - stuff the DATA into the CODES hash
106 #=======================================================================
116 ($code, $currency) = split(/:/, $_, 2);
117 $CODES{$code} = $currency;
118 $CURRENCIES{"\L$currency"} = $code;
130 ang:Netherlands Antillean Guilder
133 aor:Kwanza Reajustado
136 aud:Australian Dollar
138 azm:Azerbaijanian Manat
140 bam:Convertible Marks
157 byb:Belarussian Ruble
158 byr:Belarussian Ruble
164 clf:Unidades de Formento
168 crc:Costa Rican Colon
170 cve:Cape Verde Escudo
181 ecv:Unidad de Valor Constante (UVC)
191 fkp:Falkland Islands Pound
202 gwp:Guinea-Bissau Peso
231 kyd:Cayman Islands Dollar
256 mxn:Mexican Nuevo Peso
257 myr:Malaysian Ringgit
263 nlg:Netherlands Guilder
266 nzd:New Zealand Dollar
276 pte:Portuguese Escudo
287 sbd:Solomon Islands Dollar
299 svc:El Salvador Colon
310 ttd:Trinidad and Tobago Dollar
311 twd:New Taiwan Dollar
312 tzs:Tanzanian Shilling
318 usn:US Dollar (Next day)
319 uss:US Dollar (Same day)
332 xba:European Composite Unit
333 xbb:European Monetary Unit
334 xbc:European Unit of Account 9
335 xb5:European Unit of Account 17
336 xcd:East Caribbean Dollar
338 xeu:ECU (until 1998-12-31)