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

   1 package Locale::Country;
   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 use warnings;
  10 use Exporter;
  11
  12 our $VERSION;
  13 $VERSION='3.29';
  14
  15 our (@ISA,@EXPORT);
  16
  17 my $backend     = 'Locale::Codes::Country';
  18 my $backend_exp = $backend . "::EXPORT";
  19
  20 eval "require $backend; $backend->import(); return 1;";
  21
  22 {
  23    no strict 'refs';
  24    @EXPORT = @{ $backend_exp };
  25 }
  26
  27 unshift (@ISA, $backend);
  28
  29 sub alias_code                { Locale::Codes::Country::alias_code(@_) }
  30
  31 sub rename_country            { Locale::Codes::Country::rename_country(@_) }
  32 sub add_country               { Locale::Codes::Country::add_country(@_) }
  33 sub delete_country            { Locale::Codes::Country::delete_country(@_) }
  34 sub add_country_alias         { Locale::Codes::Country::add_country_alias(@_) }
  35 sub delete_country_alias      { Locale::Codes::Country::delete_country_alias(@_) }
  36 sub rename_country_code       { Locale::Codes::Country::rename_country_code(@_) }
  37 sub add_country_code_alias    { Locale::Codes::Country::add_country_code_alias(@_) }
  38 sub delete_country_code_alias { Locale::Codes::Country::delete_country_code_alias(@_) }
  39
  40 1;
  41 # Local Variables:
  42 # mode: cperl
  43 # indent-tabs-mode: nil
  44 # cperl-indent-level: 3
  45 # cperl-continued-statement-offset: 2
  46 # cperl-continued-brace-offset: 0
  47 # cperl-brace-offset: 0
  48 # cperl-brace-imaginary-offset: 0
  49 # cperl-label-offset: -2
  50 # End: