cpan/Locale-Codes/lib/Locale/Codes/Currency.pm

   1 package Locale::Codes::Currency;
   2 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
   3 # Copyright (C) 2002-2009 Neil Bowers
   4 # Copyright (c) 2010-2014 Sullivan Beck
   5 # This program is free software; you can redistribute it and/or modify it
   6 # under the same terms as Perl itself.
   7
   8 use strict;
   9 require 5.006;
  10 use warnings;
  11
  12 require Exporter;
  13 use Carp;
  14 use Locale::Codes;
  15 use Locale::Codes::Constants;
  16 use Locale::Codes::Currency_Codes;
  17 use Locale::Codes::Currency_Retired;
  18
  19 #=======================================================================
  20 #       Public Global Variables
  21 #=======================================================================
  22
  23 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
  24
  25 $VERSION='3.30';
  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                );
  35
  36 sub code2currency {
  37    return Locale::Codes::_code2name('currency',@_);
  38 }
  39
  40 sub currency2code {
  41    return Locale::Codes::_name2code('currency',@_);
  42 }
  43
  44 sub currency_code2code {
  45    return Locale::Codes::_code2code('currency',@_);
  46 }
  47
  48 sub all_currency_codes {
  49    return Locale::Codes::_all_codes('currency',@_);
  50 }
  51
  52 sub all_currency_names {
  53    return Locale::Codes::_all_names('currency',@_);
  54 }
  55
  56 sub rename_currency {
  57    return Locale::Codes::_rename('currency',@_);
  58 }
  59
  60 sub add_currency {
  61    return Locale::Codes::_add_code('currency',@_);
  62 }
  63
  64 sub delete_currency {
  65    return Locale::Codes::_delete_code('currency',@_);
  66 }
  67
  68 sub add_currency_alias {
  69    return Locale::Codes::_add_alias('currency',@_);
  70 }
  71
  72 sub delete_currency_alias {
  73    return Locale::Codes::_delete_alias('currency',@_);
  74 }
  75
  76 sub rename_currency_code {
  77    return Locale::Codes::_rename_code('currency',@_);
  78 }
  79
  80 sub add_currency_code_alias {
  81    return Locale::Codes::_add_code_alias('currency',@_);
  82 }
  83
  84 sub delete_currency_code_alias {
  85    return Locale::Codes::_delete_code_alias('currency',@_);
  86 }
  87
  88 1;
  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: