2 # Locale::Currency - ISO three letter codes for currency identification
5 # $Id: Currency.pm,v 2.2 2002/07/10 16:33:27 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.2 $ =~ /(\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 #=======================================================================
117 ($code, $currency) = split(/:/, $_, 2);
118 $CODES{$code} = $currency;
119 $CURRENCIES{"\L$currency"} = $code;
133 ang:Netherlands Antillean Guilder
136 aor:Kwanza Reajustado
139 aud:Australian Dollar
141 azm:Azerbaijanian Manat
143 bam:Convertible Marks
160 byb:Belarussian Ruble
161 byr:Belarussian Ruble
167 clf:Unidades de Formento
171 crc:Costa Rican Colon
173 cve:Cape Verde Escudo
184 ecv:Unidad de Valor Constante (UVC)
194 fkp:Falkland Islands Pound
205 gwp:Guinea-Bissau Peso
234 kyd:Cayman Islands Dollar
259 mxn:Mexican Nuevo Peso
260 myr:Malaysian Ringgit
266 nlg:Netherlands Guilder
269 nzd:New Zealand Dollar
279 pte:Portuguese Escudo
290 sbd:Solomon Islands Dollar
302 svc:El Salvador Colon
313 ttd:Trinidad and Tobago Dollar
314 twd:New Taiwan Dollar
315 tzs:Tanzanian Shilling
321 usn:US Dollar (Next day)
322 uss:US Dollar (Same day)
335 xba:European Composite Unit
336 xbb:European Monetary Unit
337 xbc:European Unit of Account 9
338 xb5:European Unit of Account 17
339 xcd:East Caribbean Dollar
341 xeu:ECU (until 1998-12-31)