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

   1 package Locale::Codes::Country;
   2 # Copyright (C) 2001      Canon Research Centre Europe (CRE).
   3 # Copyright (C) 2002-2009 Neil Bowers
   4 # Copyright (c) 2010-2012 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::Country_Codes;
  17 use Locale::Codes::Country_Retired;
  18
  19 #=======================================================================
  20 #       Public Global Variables
  21 #=======================================================================
  22
  23 our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
  24
  25 $VERSION='3.23';
  26 @ISA       = qw(Exporter);
  27 @EXPORT    = qw(code2country
  28                 country2code
  29                 all_country_codes
  30                 all_country_names
  31                 country_code2code
  32                 LOCALE_CODE_ALPHA_2
  33                 LOCALE_CODE_ALPHA_3
  34                 LOCALE_CODE_NUMERIC
  35                 LOCALE_CODE_FIPS
  36                 LOCALE_CODE_DOM
  37                );
  38
  39 sub code2country {
  40    return Locale::Codes::_code2name('country',@_);
  41 }
  42
  43 sub country2code {
  44    return Locale::Codes::_name2code('country',@_);
  45 }
  46
  47 sub country_code2code {
  48    return Locale::Codes::_code2code('country',@_);
  49 }
  50
  51 sub all_country_codes {
  52    return Locale::Codes::_all_codes('country',@_);
  53 }
  54
  55 sub all_country_names {
  56    return Locale::Codes::_all_names('country',@_);
  57 }
  58
  59 sub rename_country {
  60    return Locale::Codes::_rename('country',@_);
  61 }
  62
  63 sub add_country {
  64    return Locale::Codes::_add_code('country',@_);
  65 }
  66
  67 sub delete_country {
  68    return Locale::Codes::_delete_code('country',@_);
  69 }
  70
  71 sub add_country_alias {
  72    return Locale::Codes::_add_alias('country',@_);
  73 }
  74
  75 sub delete_country_alias {
  76    return Locale::Codes::_delete_alias('country',@_);
  77 }
  78
  79 sub rename_country_code {
  80    return Locale::Codes::_rename_code('country',@_);
  81 }
  82
  83 sub add_country_code_alias {
  84    return Locale::Codes::_add_code_alias('country',@_);
  85 }
  86
  87 sub delete_country_code_alias {
  88    return Locale::Codes::_delete_code_alias('country',@_);
  89 }
  90
  91 #=======================================================================
  92 #
  93 # Old function for backward compatibility
  94 #
  95 #=======================================================================
  96
  97 sub alias_code {
  98    my($alias,$code,@args) = @_;
  99    my $success = rename_country_code($code,$alias,@args);
 100    return 0  if (! $success);
 101    return $alias;
 102 }
 103
 104 1;
 105 # Local Variables:
 106 # mode: cperl
 107 # indent-tabs-mode: nil
 108 # cperl-indent-level: 3
 109 # cperl-continued-statement-offset: 2
 110 # cperl-continued-brace-offset: 0
 111 # cperl-brace-offset: 0
 112 # cperl-brace-imaginary-offset: 0
 113 # cperl-label-offset: -2
 114 # End: