r68724 - in /branches/upstream/libgeography-countries-perl: ./ current/ current/lib/ current/lib/Geography/ current/t/

takaki at users.alioth.debian.org takaki at users.alioth.debian.org
Tue Feb 15 05:24:43 UTC 2011


Author: takaki
Date: Tue Feb 15 05:24:30 2011
New Revision: 68724

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68724
Log:
[svn-inject] Installing original source of libgeography-countries-perl (2009041301)

Added:
    branches/upstream/libgeography-countries-perl/
    branches/upstream/libgeography-countries-perl/current/
    branches/upstream/libgeography-countries-perl/current/Changes
    branches/upstream/libgeography-countries-perl/current/MANIFEST
    branches/upstream/libgeography-countries-perl/current/META.yml
    branches/upstream/libgeography-countries-perl/current/Makefile.PL
    branches/upstream/libgeography-countries-perl/current/README
    branches/upstream/libgeography-countries-perl/current/TODO
    branches/upstream/libgeography-countries-perl/current/lib/
    branches/upstream/libgeography-countries-perl/current/lib/Geography/
    branches/upstream/libgeography-countries-perl/current/lib/Geography/Countries.pm
    branches/upstream/libgeography-countries-perl/current/t/
    branches/upstream/libgeography-countries-perl/current/t/000_tests.t   (with props)

Added: branches/upstream/libgeography-countries-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeography-countries-perl/current/Changes?rev=68724&op=file
==============================================================================
--- branches/upstream/libgeography-countries-perl/current/Changes (added)
+++ branches/upstream/libgeography-countries-perl/current/Changes Tue Feb 15 05:24:30 2011
@@ -1,0 +1,13 @@
+Version 2009040901
+- Force DATA encoding to be iso-8859-1 (davidhull/RT #38005)
+----
+Version 2009040801
+- Moved to git and github.
+- Modernized distro.
+----
+Revision 1.2  2000/09/05 18:22:01  abigail
+Changed typo in "Federal Republic of Germany" (Dan Allen)
+Changed layout of test.pl
+----
+Revision 1.1  1999/09/15 07:27:22  abigail
+Initial revision

Added: branches/upstream/libgeography-countries-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeography-countries-perl/current/MANIFEST?rev=68724&op=file
==============================================================================
--- branches/upstream/libgeography-countries-perl/current/MANIFEST (added)
+++ branches/upstream/libgeography-countries-perl/current/MANIFEST Tue Feb 15 05:24:30 2011
@@ -1,0 +1,8 @@
+lib/Geography/Countries.pm
+MANIFEST
+Makefile.PL
+t/000_tests.t
+Changes
+README
+TODO
+META.yml                                 Module meta-data (added by MakeMaker)

Added: branches/upstream/libgeography-countries-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeography-countries-perl/current/META.yml?rev=68724&op=file
==============================================================================
--- branches/upstream/libgeography-countries-perl/current/META.yml (added)
+++ branches/upstream/libgeography-countries-perl/current/META.yml Tue Feb 15 05:24:30 2011
@@ -1,0 +1,27 @@
+--- #YAML:1.0
+name:               Geography-Countries
+version:            2009041301
+abstract:           2-letter, 3-letter, and numerical codes for countries.
+author:
+    - Abigail <geography-countries at abigail.be>
+license:            mit
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:
+    perl:  5.006
+resources:
+    repository:  git://github.com/Abigail/geography--countries.git
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.50
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4
+keywords:
+    - Geography
+    - Countries

Added: branches/upstream/libgeography-countries-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeography-countries-perl/current/Makefile.PL?rev=68724&op=file
==============================================================================
--- branches/upstream/libgeography-countries-perl/current/Makefile.PL (added)
+++ branches/upstream/libgeography-countries-perl/current/Makefile.PL Tue Feb 15 05:24:30 2011
@@ -1,0 +1,32 @@
+use ExtUtils::MakeMaker;
+
+my %args = (
+    NAME                 => 'Geography::Countries',
+    VERSION_FROM         => 'lib/Geography/Countries.pm',
+    ABSTRACT_FROM        => 'lib/Geography/Countries.pm',
+    MIN_PERL_VERSION     =>  5.006,
+    AUTHOR               => 'Abigail <geography-countries at abigail.be>',
+    LICENSE		 => 'mit',
+    META_MERGE           => {
+        resources        => {
+            repository   => 'git://github.com/Abigail/geography--countries.git',
+        },
+        keywords         => [qw [Geography Countries]],
+    },
+);
+
+my %filter = (
+    MIN_PERL_VERSION     => '6.48',
+    LICENSE              => '6.48',
+    META_MERGE           => '6.46',
+    AUTHOR               => '6.07',
+    ABSTRACT_FROM        => '6.07',
+);
+
+
+delete $args {$_} for grep {defined $filter {$_} &&
+                            $ExtUtils::MakeMaker::VERSION lt $filter {$_}}
+                            keys %args;
+
+
+WriteMakefile %args;

Added: branches/upstream/libgeography-countries-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeography-countries-perl/current/README?rev=68724&op=file
==============================================================================
--- branches/upstream/libgeography-countries-perl/current/README (added)
+++ branches/upstream/libgeography-countries-perl/current/README Tue Feb 15 05:24:30 2011
@@ -1,0 +1,137 @@
+NAME
+    Geography::Countries - 2-letter, 3-letter, and numerical codes for
+    countries.
+
+SYNOPSIS
+        use Geography::Countries;
+
+        $country = country 'DE';  # 'Germany'
+        @list    = country  666;  # ('PM', 'SPM', 666,
+                                  #  'Saint Pierre and Miquelon', 1)
+
+DESCRIPTION
+    This module maps country names, and their 2-letter, 3-letter and
+    numerical codes, as defined by the ISO-3166 maintenance agency [1], and
+    defined by the UNSD.
+
+  The "country" subroutine.
+    This subroutine is exported by default. It takes a 2-letter, 3-letter or
+    numerical code, or a country name as argument. In scalar context, it
+    will return the country name, in list context, it will return a list
+    consisting of the 2-letter code, the 3-letter code, the numerical code,
+    the country name, and a flag, which is explained below. Note that not
+    all countries have all 3 codes; if a code is unknown, the undefined
+    value is returned.
+
+    There are 3 categories of countries. The largest category are the
+    current countries. Then there is a small set of countries that no longer
+    exist. The final set consists of areas consisting of multiple countries,
+    like *Africa*. No 2-letter or 3-letter codes are available for the
+    second two sets. (ISO 3166-3 [3] defines 4 letter codes for the set of
+    countries that no longer exist, but the author of this module was unable
+    to get her hands on that standard.) By default, "country" only returns
+    countries from the first set, but this can be changed by giving
+    "country" an optional second argument.
+
+    The module optionally exports the constants "CNT_F_REGULAR",
+    "CNT_F_OLD", "CNT_F_REGION" and "CNT_F_ANY". These constants can also be
+    important all at once by using the tag ":FLAGS". "CNT_F_ANY" is just the
+    binary or of the three other flags. The second argument of "country"
+    should be the binary or of a subset of the flags "CNT_F_REGULAR",
+    "CNT_F_OLD", and "CNT_F_REGION" - if no, or a false, second argument is
+    given, "CNT_F_REGULAR" is assumed. If "CNT_F_REGULAR" is set, regular
+    (current) countries will be returned; if "CNT_F_OLD" is set, old, no
+    longer existing, countries will be returned, while "CNT_F_REGION" is
+    used in case a region (not necessarely) a country might be returned. If
+    "country" is used in list context, the fifth returned element is one of
+    "CNT_F_REGULAR", "CNT_F_OLD" and "CNT_F_REGION", indicating whether the
+    result is a regular country, an old country, or a region.
+
+    In list context, "country" returns a 5 element list. To avoid having to
+    remember which element is in which index, the constants "CNT_I_CODE2",
+    "CNT_I_CODE3", "CNT_I_NUMCODE", "CNT_I_COUNTRY" and "CNT_I_FLAG" can be
+    imported. Those constants contain the indices of the 2-letter code, the
+    3-letter code, the numerical code, the country, and the flag explained
+    above, respectively. All index constants can be imported by using the
+    ":INDICES" tag.
+
+  The "code2", "code3", "numcode" and "countries" routines.
+    All known 2-letter codes, 3-letter codes, numerical codes and country
+    names can be returned by the routines "code2", "code3", "numcode" and
+    "countries". None of these methods is exported by default; all need to
+    be imported if one wants to use them. The tag ":LISTS" imports them all.
+    In scalar context, the number of known codes or countries is returned.
+
+REFERENCES
+    The 2-letter codes come from the ISO 3166-1:1997 standard [2]. ISO 3166
+    bases its list of country names on the list of names published by the
+    United Nations. This list is published by the Statistical Division of
+    the United Nations [4]. The UNSD uses 3-letter codes, and numerical
+    codes [5]. The information about old countries [6] and regions [7] also
+    comes from the United Nations.
+
+    In a few cases, there was a conflict between the way how the United
+    Nations spelled a name, and how ISO 3166 spells it. In most cases, is
+    was word order (for instance whether *The republic of* should preceed
+    the name, or come after the name. A few cases had minor spelling
+    variations. In all such cases, the method in which the UN spelled the
+    name was choosen; ISO 3166 claims to take the names from the UN, so we
+    consider the UN authoritative.
+
+    [1] ISO Maintenance Agency (ISO 3166/MA)
+        *http://www.din.de/gremien/nas/nabd/iso3166ma/index.html*.
+
+    [2] *Country codes*,
+        *http://www.din.de/gremien/nas/nabd/iso3166ma/codlstp1.html*, 7
+        September 1999.
+
+    [3] ISO 3166-3, *Code for formerly used country names*.
+        *http://www.din.de/gremien/nas/nabd/iso3166ma/info_pt3.html*.
+
+    [4] United Nations, Statistics Division.
+        *http://www.un.org/Depts/unsd/statdiv.htm*.
+
+    [5] *Country or area codes in alphabetical order*.
+        *http://www.un.org/Depts/unsd/methods/m49alpha.htm*, 26 August 1999.
+
+    [6] *Codes added or changed*.
+        *http://www.un.org/Depts/unsd/methods/m49chang.htm*, 26 August 1999.
+
+    [7] *Geographical regions*.
+        *http://www.un.org/Depts/unsd/methods/m49regin.htm*, 26 August 1999.
+
+BUGS
+    Looking up information using country names is far from perfect. Except
+    for case and the amount of white space, the exact name as it appears on
+    the list has to be given. *USA* will not return anything, but *United
+    States* will.
+
+DEVELOPMENT
+    The current sources of this module are found on github,
+    <git://github.com/Abigail/geography--countries.git>.
+
+AUTHOR
+    Abigail <mailto:geography-countries at abigail.be>.
+
+COPYRIGHT and LICENSE
+    Copyright (C) 1999, 2009 by Abigail
+
+    Permission is hereby granted, free of charge, to any person obtaining a
+    copy of this software and associated documentation files (the
+    "Software"), to deal in the Software without restriction, including
+    without limitation the rights to use, copy, modify, merge, publish,
+    distribute, sublicense, and/or sell copies of the Software, and to
+    permit persons to whom the Software is furnished to do so, subject to
+    the following conditions:
+
+    The above copyright notice and this permission notice shall be included
+    in all copies or substantial portions of the Software.
+
+    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+    OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+    IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+    LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+    FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+    DEALINGS IN THE SOFTWARE.
+

Added: branches/upstream/libgeography-countries-perl/current/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeography-countries-perl/current/TODO?rev=68724&op=file
==============================================================================
--- branches/upstream/libgeography-countries-perl/current/TODO (added)
+++ branches/upstream/libgeography-countries-perl/current/TODO Tue Feb 15 05:24:30 2011
@@ -1,0 +1,2 @@
+20090408: Check for updates. Surely, the last 10 years new countries
+          were created, ceased to exist, or were renamed.

Added: branches/upstream/libgeography-countries-perl/current/lib/Geography/Countries.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeography-countries-perl/current/lib/Geography/Countries.pm?rev=68724&op=file
==============================================================================
--- branches/upstream/libgeography-countries-perl/current/lib/Geography/Countries.pm (added)
+++ branches/upstream/libgeography-countries-perl/current/lib/Geography/Countries.pm Tue Feb 15 05:24:30 2011
@@ -1,0 +1,580 @@
+package Geography::Countries;
+
+use 5.006;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+use Exporter ();
+
+our @ISA         = qw /Exporter/;
+our @EXPORT      = qw /country/;
+our @EXPORT_OK   = qw /code2         code3       numcode       countries
+                       CNT_I_CODE2   CNT_I_CODE3 CNT_I_NUMCODE CNT_I_COUNTRY
+                       CNT_I_FLAG
+                       CNT_F_REGULAR CNT_F_OLD   CNT_F_REGION  CNT_F_ANY/;
+our %EXPORT_TAGS = (LISTS   => [qw /code2 code3   numcode     countries/],
+                    INDICES => [qw /CNT_I_CODE2   CNT_I_CODE3 CNT_I_NUMCODE
+                                    CNT_I_COUNTRY CNT_I_FLAG/],
+                    FLAGS   => [qw /CNT_F_REGULAR CNT_F_OLD
+                                    CNT_F_REGION  CNT_F_ANY/],);
+
+our $VERSION     = '2009041301';
+
+
+use constant CNT_I_CODE2   =>    0;
+use constant CNT_I_CODE3   =>    1;
+use constant CNT_I_NUMCODE =>    2;
+use constant CNT_I_COUNTRY =>    3;
+use constant CNT_I_FLAG    =>    4;
+
+use constant CNT_F_REGULAR => 0x01;
+use constant CNT_F_OLD     => 0x02;
+use constant CNT_F_REGION  => 0x04;
+use constant CNT_F_ANY     => CNT_F_REGULAR | CNT_F_OLD | CNT_F_REGION;
+
+my (%info, @code2, @code3, @numcode, @countries);
+
+sub norm ($) {
+    my $query = shift;
+    die "Illegal argument to norm\n" unless defined $query;
+    return sprintf "%03d" => $query  unless $query =~ /\D/;
+    $query =  lc $query;
+    $query =~ s/\s+//g;
+
+    $query;
+}
+
+binmode (DATA, ':encoding(iso-8859-1)') if $] >= 5.008;
+
+my $flag;
+my %flags   = (
+    Regular => CNT_F_REGULAR,
+    Old     => CNT_F_OLD,
+    Region  => CNT_F_REGION,
+);
+while (<DATA>) {
+    chomp;
+    last if $_ eq '__END__';
+    s/#.*//;
+    next unless /\S/;
+    if (/^%%\s*(\S.*\S)\s*%%$/) {
+        $flag = $flags {$1} or
+                 die "Found illegal flag ``$1'' while parsing __DATA__\n";
+        next;
+    }
+    my $code2   = substr $_,  0, 2;  $code2   = undef if $code2   =~ /\s/;
+    my $code3   = substr $_,  3, 3;  $code3   = undef if $code3   =~ /\s/;
+    my $numcode = substr $_,  7, 3;  $numcode = undef if $numcode =~ /\s/;
+    my $country = substr $_, 11;
+
+    push @code2     =>  $code2   if defined $code2;
+    push @code3     =>  $code3   if defined $code3;
+    push @numcode   =>  $numcode if defined $numcode;
+    push @countries =>  $country;
+
+    my $info    = [$code2, $code3, $numcode, $country, $flag];
+
+    $info {norm $code2}   =  $info if defined $code2  ;
+    $info {norm $code3}   =  $info if defined $code3  ;
+    $info {$numcode}      =  $info if defined $numcode;
+
+    $info {norm $country} =  $info;
+}
+
+ at code2     = sort @code2;
+ at code3     = sort @code3;
+ at numcode   = sort @numcode;
+ at countries = sort @countries;
+
+sub code2     {@code2}
+sub code3     {@code3}
+sub numcode   {@numcode}
+sub countries {@countries}
+
+
+sub country ($;$) {
+    my $sub = (caller (0)) [3];
+
+    die "No arguments for $sub.\n"           unless @_;
+    die "Too many arguments for $sub.\n"     unless @_ <= 2;
+
+    my ($query, $flags) = @_;
+
+    die "Undefined argument for $sub.\n"     unless defined $query;
+
+    $flags ||=  CNT_F_REGULAR;
+
+    die "Illegal second argument to $sub.\n" if $flags =~ /\D/;
+
+    my $info =  $info {norm $query} or return;
+
+    return unless $info -> [CNT_I_FLAG] & $flags;
+
+    wantarray ? @$info : $info -> [CNT_I_COUNTRY];
+
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+Geography::Countries - 2-letter, 3-letter, and numerical codes for countries.
+
+=head1 SYNOPSIS
+
+    use Geography::Countries;
+
+    $country = country 'DE';  # 'Germany'
+    @list    = country  666;  # ('PM', 'SPM', 666,
+                              #  'Saint Pierre and Miquelon', 1)
+
+=head1 DESCRIPTION
+
+This module maps country names, and their 2-letter, 3-letter and
+numerical codes, as defined by the ISO-3166 maintenance agency [1],
+and defined by the UNSD.
+
+=head2 The C<country> subroutine.
+
+This subroutine is exported by default. It takes a 2-letter, 3-letter or
+numerical code, or a country name as argument. In scalar context, it will
+return the country name, in list context, it will return a list consisting
+of the 2-letter code, the 3-letter code, the numerical code, the country
+name, and a flag, which is explained below. Note that not all countries
+have all 3 codes; if a code is unknown, the undefined value is returned.
+
+There are 3 categories of countries. The largest category are the 
+current countries. Then there is a small set of countries that no
+longer exist. The final set consists of areas consisting of multiple
+countries, like I<Africa>. No 2-letter or 3-letter codes are available
+for the second two sets. (ISO 3166-3 [3] defines 4 letter codes for the
+set of countries that no longer exist, but the author of this module
+was unable to get her hands on that standard.) By default, C<country>
+only returns countries from the first set, but this can be changed
+by giving C<country> an optional second argument.
+
+The module optionally exports the constants C<CNT_F_REGULAR>,
+C<CNT_F_OLD>, C<CNT_F_REGION> and C<CNT_F_ANY>. These constants can also
+be important all at once by using the tag C<:FLAGS>. C<CNT_F_ANY> is just
+the binary or of the three other flags. The second argument of C<country>
+should be the binary or of a subset of the flags C<CNT_F_REGULAR>,
+C<CNT_F_OLD>, and C<CNT_F_REGION> - if no, or a false, second argument is
+given, C<CNT_F_REGULAR> is assumed. If C<CNT_F_REGULAR> is set, regular
+(current) countries will be returned; if C<CNT_F_OLD> is set, old,
+no longer existing, countries will be returned, while C<CNT_F_REGION>
+is used in case a region (not necessarely) a country might be returned.
+If C<country> is used in list context, the fifth returned element is
+one of C<CNT_F_REGULAR>, C<CNT_F_OLD> and C<CNT_F_REGION>, indicating
+whether the result is a regular country, an old country, or a region.
+
+In list context, C<country> returns a 5 element list. To avoid having
+to remember which element is in which index, the constants C<CNT_I_CODE2>,
+C<CNT_I_CODE3>, C<CNT_I_NUMCODE>, C<CNT_I_COUNTRY> and C<CNT_I_FLAG>
+can be imported. Those constants contain the indices of the 2-letter code,
+the 3-letter code, the numerical code, the country, and the flag explained
+above, respectively. All index constants can be imported by using the
+C<:INDICES> tag.
+
+=head2 The C<code2>, C<code3>, C<numcode> and C<countries> routines.
+
+All known 2-letter codes, 3-letter codes, numerical codes and country
+names can be returned by the routines C<code2>, C<code3>, C<numcode> and
+C<countries>. None of these methods is exported by default; all need to
+be imported if one wants to use them. The tag C<:LISTS> imports them 
+all. In scalar context, the number of known codes or countries is returned.
+
+=head1 REFERENCES
+
+The 2-letter codes come from the ISO 3166-1:1997 standard [2]. ISO 3166
+bases its list of country names on the list of names published by
+the United Nations. This list is published by the Statistical Division
+of the United Nations [4]. The UNSD uses 3-letter codes, and numerical
+codes [5]. The information about old countries [6] and regions [7] also
+comes from the United Nations.
+
+In a few cases, there was a conflict between the way how the United 
+Nations spelled a name, and how ISO 3166 spells it. In most cases,
+is was word order (for instance whether I<The republic of> should
+preceed the name, or come after the name. A few cases had minor
+spelling variations. In all such cases, the method in which the UN
+spelled the name was choosen; ISO 3166 claims to take the names from
+the UN, so we consider the UN authoritative.
+
+=over 4
+
+=item [1]
+
+ISO Maintenance Agency (ISO 3166/MA)
+I<http://www.din.de/gremien/nas/nabd/iso3166ma/index.html>.
+
+=item [2]
+
+I<Country codes>,
+I<http://www.din.de/gremien/nas/nabd/iso3166ma/codlstp1.html>,
+7 September 1999.
+
+=item [3]
+
+ISO 3166-3, I<Code for formerly used country names>.
+I<http://www.din.de/gremien/nas/nabd/iso3166ma/info_pt3.html>.
+
+=item [4]
+
+United Nations, Statistics Division.
+I<http://www.un.org/Depts/unsd/statdiv.htm>.
+
+=item [5]
+
+I<Country or area codes in alphabetical order>.
+I<http://www.un.org/Depts/unsd/methods/m49alpha.htm>,
+26 August 1999.
+
+=item [6]
+
+I<Codes added or changed>.
+I<http://www.un.org/Depts/unsd/methods/m49chang.htm>,
+26 August 1999.
+
+=item [7]
+
+I<Geographical regions>.
+I<http://www.un.org/Depts/unsd/methods/m49regin.htm>,
+26 August 1999.
+
+=back
+
+=head1 BUGS
+
+Looking up information using country names is far from perfect.
+Except for case and the amount of white space, the exact name as it
+appears on the list has to be given. I<USA> will not return anything,
+but I<United States> will.
+
+=head1 DEVELOPMENT
+    
+The current sources of this module are found on github,
+L<< git://github.com/Abigail/geography--countries.git >>.
+    
+=head1 AUTHOR
+    
+Abigail L<< mailto:geography-countries at abigail.be >>.
+    
+=head1 COPYRIGHT and LICENSE
+       
+Copyright (C) 1999, 2009 by Abigail
+    
+Permission is hereby granted, free of charge, to any person obtaining a
+copy of this software and associated documentation files (the "Software"),
+to deal in the Software without restriction, including without limitation
+the rights to use, copy, modify, merge, publish, distribute, sublicense,
+and/or sell copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT
+OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+
+=cut
+
+__DATA__
+%% Regular %%
+AF AFG 004 Afghanistan
+AL ALB 008 Albania
+DZ DZA 012 Algeria
+AS ASM 016 American Samoa
+AD AND 020 Andorra
+AO AGO 024 Angola
+AI AIA 660 Anguilla
+AQ         Antarctica
+AG ATG 028 Antigua and Barbuda
+       896 Areas not elsewhere specified
+       898 Areas not specified
+AR ARG 032 Argentina
+AM ARM 051 Armenia
+AW ABW 533 Aruba
+AU AUS 036 Australia
+AT AUT 040 Austria
+AZ AZE 031 Azerbaijan
+BS BHS 044 Bahamas
+BH BHR 048 Bahrain
+BD BGD 050 Bangladesh
+BB BRB 052 Barbados
+BY BLR 112 Belarus
+BE BEL 056 Belgium
+BZ BLZ 084 Belize
+BJ BEN 204 Benin
+BM BMU 060 Bermuda
+BT BTN 064 Bhutan
+BO BOL 068 Bolivia
+BA BIH 070 Bosnia and Herzegovina
+BW BWA 072 Botswana
+BV         Bouvet Island
+BR BRA 076 Brazil
+IO         British Indian Ocean Territory
+VG VGB 092 British Virgin Islands
+BN BRN 096 Brunei Darussalam
+BG BGR 100 Bulgaria
+BF BFA 854 Burkina Faso
+BI BDI 108 Burundi
+KH KHM 116 Cambodia
+CM CMR 120 Cameroon
+CA CAN 124 Canada
+CV CPV 132 Cape Verde
+KY CYM 136 Cayman Islands
+CF CAF 140 Central African Republic
+TD TCD 148 Chad
+       830 Channel Islands
+CL CHL 152 Chile
+CN CHN 156 China
+CX         Christmas Island
+CC         Cocos (keeling) Islands
+CO COL 170 Colombia
+KM COM 174 Comoros
+CG COG 178 Congo
+CK COK 184 Cook Islands
+CR CRI 188 Costa Rica
+CI CIV 384 Côte d'Ivoire
+HR HRV 191 Croatia
+CU CUB 192 Cuba
+CY CYP 196 Cyprus
+CZ CZE 203 Czech Republic
+KP PRK 408 Democratic People's Republic of Korea
+CD COD 180 Democratic Republic of the Congo
+DK DNK 208 Denmark
+DJ DJI 262 Djibouti
+DM DMA 212 Dominica
+DO DOM 214 Dominican Republic
+TP TMP 626 East Timor
+EC ECU 218 Ecuador
+EG EGY 818 Egypt
+SV SLV 222 El Salvador
+GQ GNQ 226 Equatorial Guinea
+ER ERI 232 Eritrea
+EE EST 233 Estonia
+ET ETH 231 Ethiopia
+FO FRO 234 Faeroe Islands
+FK FLK 238 Falkland Islands (Malvinas)
+FM FSM 583 Micronesia, Federated States of
+FJ FJI 242 Fiji
+FI FIN 246 Finland
+MK MKD 807 The former Yugoslav Republic of Macedonia
+FR FRA 250 France
+GF GUF 254 French Guiana
+PF PYF 258 French Polynesia
+TF         French Southern Territories
+GA GAB 266 Gabon
+GM GMB 270 Gambia
+GE GEO 268 Georgia
+DE DEU 276 Germany
+GH GHA 288 Ghana
+GI GIB 292 Gibraltar
+GR GRC 300 Greece
+GL GRL 304 Greenland
+GD GRD 308 Grenada
+GP GLP 312 Guadeloupe
+GU GUM 316 Guam
+GT GTM 320 Guatemala
+GN GIN 324 Guinea
+GW GNB 624 Guinea-Bissau
+GY GUY 328 Guyana
+HT HTI 332 Haiti
+HM         Heard Island And Mcdonald Islands
+VA VAT 336 Holy See
+HN HND 340 Honduras
+HK HKG 344 Hong Kong Special Administrative Region of China
+HU HUN 348 Hungary
+IS ISL 352 Iceland
+IN IND 356 India
+ID IDN 360 Indonesia
+IR IRN 364 Iran (Islamic Republic of)
+IQ IRQ 368 Iraq
+IE IRL 372 Ireland
+   IMY 833 Isle of Man
+IL ISR 376 Israel
+IT ITA 380 Italy
+JM JAM 388 Jamaica
+JP JPN 392 Japan
+JO JOR 400 Jordan
+KZ KAZ 398 Kazakhstan
+KE KEN 404 Kenya
+KI KIR 296 Kiribati
+KW KWT 414 Kuwait
+KG KGZ 417 Kyrgyzstan
+LA LAO 418 Lao People's Democratic Republic
+LV LVA 428 Latvia
+LB LBN 422 Lebanon
+LS LSO 426 Lesotho
+LR LBR 430 Liberia
+LY LBY 434 Libyan Arab Jamahiriya
+LI LIE 438 Liechtenstein
+LT LTU 440 Lithuania
+LU LUX 442 Luxembourg
+MO MAC 446 Macau
+MG MDG 450 Madagascar
+MW MWI 454 Malawi
+MY MYS 458 Malaysia
+MV MDV 462 Maldives
+ML MLI 466 Mali
+MT MLT 470 Malta
+MH MHL 584 Marshall Islands
+MQ MTQ 474 Martinique
+MR MRT 478 Mauritania
+MU MUS 480 Mauritius
+YT         Mayotte
+MX MEX 484 Mexico
+MC MCO 492 Monaco
+MN MNG 496 Mongolia
+MS MSR 500 Montserrat
+MA MAR 504 Morocco
+MZ MOZ 508 Mozambique
+MM MMR 104 Myanmar
+NA NAM 516 Namibia
+NR NRU 520 Nauru
+NP NPL 524 Nepal
+NL NLD 528 Netherlands
+AN ANT 530 Netherlands Antilles
+NC NCL 540 New Caledonia
+NZ NZL 554 New Zealand
+NI NIC 558 Nicaragua
+NE NER 562 Niger
+NG NGA 566 Nigeria
+NU NIU 570 Niue
+NF NFK 574 Norfolk Island
+MP MNP 580 Northern Mariana Islands
+NO NOR 578 Norway
+   PSE 275 Occupied Palestinian Territory
+OM OMN 512 Oman
+PK PAK 586 Pakistan
+PW PLW 585 Palau
+PA PAN 591 Panama
+PG PNG 598 Papua New Guinea
+PY PRY 600 Paraguay
+PE PER 604 Peru
+PH PHL 608 Philippines
+PN PCN 612 Pitcairn
+PL POL 616 Poland
+PT PRT 620 Portugal
+PR PRI 630 Puerto Rico
+QA QAT 634 Qatar
+KR KOR 410 Republic of Korea
+MD MDA 498 Republic of Moldova
+RO ROM 642 Romania
+RE REU 638 Réunion
+RU RUS 643 Russian Federation
+RW RWA 646 Rwanda
+SH SHN 654 Saint Helena
+KN KNA 659 Saint Kitts and Nevis
+LC LCA 662 Saint Lucia
+PM SPM 666 Saint Pierre and Miquelon
+VC VCT 670 Saint Vincent and the Grenadines
+WS WSM 882 Samoa
+SM SMR 674 San Marino
+ST STP 678 Sao Tome and Principe
+SA SAU 682 Saudi Arabia
+SN SEN 686 Senegal
+SC SYC 690 Seychelles
+SL SLE 694 Sierra Leone
+SG SGP 702 Singapore
+SK SVK 703 Slovakia
+SI SVN 705 Slovenia
+SB SLB 090 Solomon Islands
+SO SOM 706 Somalia
+ZA ZAF 710 South Africa
+GS         South Georgia And The South Sandwich Islands
+ES ESP 724 Spain
+LK LKA 144 Sri Lanka
+SD SDN 736 Sudan
+SR SUR 740 Suriname
+SJ SJM 744 Svalbard and Jan Mayen Islands
+SZ SWZ 748 Swaziland
+SE SWE 752 Sweden
+CH CHE 756 Switzerland
+SY SYR 760 Syrian Arab Republic
+TW TWN 158 Taiwan Province of China
+TJ TJK 762 Tajikistan
+TH THA 764 Thailand
+TG TGO 768 Togo
+TK TKL 772 Tokelau
+TO TON 776 Tonga
+TT TTO 780 Trinidad and Tobago
+TN TUN 788 Tunisia
+TR TUR 792 Turkey
+TM TKM 795 Turkmenistan
+TC TCA 796 Turks and Caicos Islands
+TV TUV 798 Tuvalu
+UG UGA 800 Uganda
+UA UKR 804 Ukraine
+AE ARE 784 United Arab Emirates
+GB GBR 826 United Kingdom
+TZ TZA 834 United Republic of Tanzania
+US USA 840 United States
+UM         United States Minor Outlying Islands
+VI VIR 850 United States Virgin Islands
+UY URY 858 Uruguay
+UZ UZB 860 Uzbekistan
+VU VUT 548 Vanuatu
+VE VEN 862 Venezuela
+VN VNM 704 Viet Nam
+WF WLF 876 Wallis and Futuna Islands
+EH ESH 732 Western Sahara
+YE YEM 887 Yemen
+YU YUG 891 Yugoslavia
+ZM ZMB 894 Zambia
+ZW ZWE 716 Zimbabwe
+%% Old %%
+       810 Union of Soviet Socialist Republics
+       532 Netherlands Antilles
+       890 Socialist Federal Republic of Yugoslavia
+       200 Czechoslovakia
+       278 German Democratic Republic
+       280 Federal Republic of Germany
+       582 Pacific Islands (Trust Territory)
+       720 Democratic Yemen
+       886 Yemen
+       230 Ethiopia
+       104 Burma
+       116 Democratic Kampuchea
+       180 Zaire
+       384 Ivory Coast
+       854 Upper Volta
+%% Region %%
+       002 Africa
+       014 Eastern Africa
+       017 Middle Africa
+       015 Northern Africa
+       018 Southern Africa
+       011 Western Africa
+       019 Americas
+       419 Latin America and the Caribbean
+       029 Caribbean
+       013 Central America
+       005 South America
+       021 Northern America
+       142 Asia
+       030 Eastern Asia
+       062 South-central Asia
+       035 South-eastern Asia
+       145 Western Asia
+       150 Europe
+       151 Eastern Europe
+       154 Northern Europe
+       039 Southern Europe
+       155 Western Europe
+       009 Oceania
+       053 Australia and New Zealand
+       054 Melanesia
+       055 Micronesia-Polynesia
+       057 Micronesia
+       061 Polynesia
+__END__

Added: branches/upstream/libgeography-countries-perl/current/t/000_tests.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeography-countries-perl/current/t/000_tests.t?rev=68724&op=file
==============================================================================
--- branches/upstream/libgeography-countries-perl/current/t/000_tests.t (added)
+++ branches/upstream/libgeography-countries-perl/current/t/000_tests.t Tue Feb 15 05:24:30 2011
@@ -1,0 +1,57 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl test.pl'
+
+######################### We start with some black magic to print on failure.
+
+# Change 1..1 below to 1..last_test_to_print .
+# (It may become useful if the test is moved to ./t subdirectory.)
+
+BEGIN { $| = 1; print "1..13\n"; }
+END {print "not ok 1\n" unless $loaded;}
+use Geography::Countries qw /:DEFAULT :LISTS :FLAGS :INDICES/;
+$loaded = 1;
+print "ok 1\n";
+
+######################### End of black magic.
+
+# Insert your test code below (better if it prints "ok 13"
+# (correspondingly "not ok 13") depending on the success of chunk 13
+# of the test code):
+
+my $test = 1;
+
+printf "%sok %d\n", "Germany"                     eq country ( "DE")
+                    ? "" : "not ", ++ $test;
+printf "%sok %d\n", "Netherlands"                 eq country ("NLD")
+                    ? "" : "not ", ++ $test;
+printf "%sok %d\n", "Mali"                        eq country ( 466 )
+                    ? "" : "not ", ++ $test;
+printf "%sok %d\n", "Europe"                      eq country ( 150, CNT_F_ANY)
+                    ? "" : "not ", ++ $test;
+printf "%sok %d\n", "Federal Republic of Germany" eq country ( 280, CNT_F_OLD)
+                    ? "" : "not ", ++ $test;
+
+my $e = country 150;
+printf "%sok %d\n", defined $e
+                    ? "not " : "", ++ $test;
+
+my @list = country "United Kingdom";
+printf "%sok %d\n", $list [CNT_I_COUNTRY] eq "United Kingdom"
+                    ? "" : "not ", ++ $test;
+printf "%sok %d\n", $list [CNT_I_CODE3]   eq "GBR"           
+                    ? "" : "not ", ++ $test;
+
+my @codes = code3;
+printf "%sok %d\n", @codes == 230
+                    ? "" : "not ", ++ $test;
+
+eval {my $c = &country (1, 2, 3)};
+printf "%sok %d\n", $@ =~ /^Too many arguments/
+                    ? "" : "not ", ++ $test;
+
+eval {my $c = country 1, "foobah"};
+printf "%sok %d\n", $@ =~ /^Illegal second argument/
+                    ? "" : "not ", ++ $test;
+
+printf "%sok %d\n", defined $Geography::Countries::VERSION
+                    ? "" : "not ", ++ $test;

Propchange: branches/upstream/libgeography-countries-perl/current/t/000_tests.t
------------------------------------------------------------------------------
    svn:executable = 




More information about the Pkg-perl-cvs-commits mailing list