Commit | Line | Data |
---|---|---|
f768f60b | 1 | package Locale::Codes::Currency; |
c69a30ec CBW |
2 | # Copyright (C) 2001 Canon Research Centre Europe (CRE). |
3 | # Copyright (C) 2002-2009 Neil Bowers | |
e744ae18 | 4 | # Copyright (c) 2010-2014 Sullivan Beck |
c69a30ec CBW |
5 | # This program is free software; you can redistribute it and/or modify it |
6 | # under the same terms as Perl itself. | |
f768f60b | 7 | |
c69a30ec | 8 | use strict; |
94814ff5 | 9 | require 5.006; |
c69a30ec | 10 | use warnings; |
f768f60b | 11 | |
c69a30ec CBW |
12 | require Exporter; |
13 | use Carp; | |
14 | use Locale::Codes; | |
15 | use Locale::Codes::Constants; | |
16 | use Locale::Codes::Currency_Codes; | |
4345d05b | 17 | use Locale::Codes::Currency_Retired; |
f768f60b | 18 | |
c69a30ec CBW |
19 | #======================================================================= |
20 | # Public Global Variables | |
21 | #======================================================================= | |
f768f60b | 22 | |
c69a30ec | 23 | our($VERSION,@ISA,@EXPORT,@EXPORT_OK); |
f768f60b | 24 | |
d07feb8f | 25 | $VERSION='3.30'; |
c69a30ec CBW |
26 | @ISA = qw(Exporter); |
27 | @EXPORT = qw(code2currency | |
28 | currency2code | |
29 | all_currency_codes | |
30 | all_currency_names | |
31 | currency_code2code | |
32 | LOCALE_CURR_ALPHA | |
33 | LOCALE_CURR_NUMERIC | |
34 | ); | |
f768f60b | 35 | |
c69a30ec | 36 | sub code2currency { |
4345d05b | 37 | return Locale::Codes::_code2name('currency',@_); |
c69a30ec | 38 | } |
f768f60b | 39 | |
c69a30ec | 40 | sub currency2code { |
4345d05b | 41 | return Locale::Codes::_name2code('currency',@_); |
c69a30ec CBW |
42 | } |
43 | ||
c69a30ec | 44 | sub currency_code2code { |
4345d05b | 45 | return Locale::Codes::_code2code('currency',@_); |
c69a30ec CBW |
46 | } |
47 | ||
c69a30ec | 48 | sub all_currency_codes { |
4345d05b | 49 | return Locale::Codes::_all_codes('currency',@_); |
c69a30ec CBW |
50 | } |
51 | ||
c69a30ec | 52 | sub all_currency_names { |
4345d05b | 53 | return Locale::Codes::_all_names('currency',@_); |
c69a30ec CBW |
54 | } |
55 | ||
c69a30ec | 56 | sub rename_currency { |
4345d05b | 57 | return Locale::Codes::_rename('currency',@_); |
c69a30ec CBW |
58 | } |
59 | ||
c69a30ec | 60 | sub add_currency { |
4345d05b | 61 | return Locale::Codes::_add_code('currency',@_); |
c69a30ec CBW |
62 | } |
63 | ||
c69a30ec | 64 | sub delete_currency { |
4345d05b | 65 | return Locale::Codes::_delete_code('currency',@_); |
c69a30ec CBW |
66 | } |
67 | ||
c69a30ec | 68 | sub add_currency_alias { |
4345d05b | 69 | return Locale::Codes::_add_alias('currency',@_); |
c69a30ec CBW |
70 | } |
71 | ||
c69a30ec | 72 | sub delete_currency_alias { |
4345d05b | 73 | return Locale::Codes::_delete_alias('currency',@_); |
c69a30ec CBW |
74 | } |
75 | ||
c69a30ec | 76 | sub rename_currency_code { |
4345d05b | 77 | return Locale::Codes::_rename_code('currency',@_); |
c69a30ec | 78 | } |
f768f60b | 79 | |
c69a30ec | 80 | sub add_currency_code_alias { |
4345d05b | 81 | return Locale::Codes::_add_code_alias('currency',@_); |
c69a30ec | 82 | } |
f768f60b | 83 | |
c69a30ec | 84 | sub delete_currency_code_alias { |
4345d05b | 85 | return Locale::Codes::_delete_code_alias('currency',@_); |
c69a30ec | 86 | } |
f768f60b S |
87 | |
88 | 1; | |
c69a30ec CBW |
89 | # Local Variables: |
90 | # mode: cperl | |
91 | # indent-tabs-mode: nil | |
92 | # cperl-indent-level: 3 | |
93 | # cperl-continued-statement-offset: 2 | |
94 | # cperl-continued-brace-offset: 0 | |
95 | # cperl-brace-offset: 0 | |
96 | # cperl-brace-imaginary-offset: 0 | |
97 | # cperl-label-offset: -2 | |
98 | # End: |