File Coverage

blib/lib/Geography/Country/Utils.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Geography::Country::Utils;
2             $Geography::Country::Utils::VERSION = '1.07';
3              
4 3     3   22580 use strict;
  3         8  
  3         175  
5              
6             =head1 NAME
7              
8             Geography::Country::Utils - Utilities for country-specific information
9              
10             =head1 VERSION
11              
12             This document describes version 1.07 of Geography::Country::Utils,
13             released August 12, 2005.
14              
15             =head1 SYNOPSIS
16              
17             use Geography::Country::Utils qw(...); # autoloads submodules
18              
19             =head1 DESCRIPTION
20              
21             This module is just a thin wrapper around other B
22             modules. No functions are exported by default; any functions requested
23             are imported from the module that defines them.
24              
25             =head1 FUNCTIONS
26              
27             =head2 Geography::Country::Dial
28              
29             =over 4
30              
31             =item dialcode([$name | $code])
32              
33             Returns the international dial code for a country, specified either as
34             name or as FIPS country code.
35              
36             =back
37              
38             =head2 Geography::Country::FIPS
39              
40             =over 4
41              
42             =item country2fips($name)
43              
44             Returns the FIPS code for a country.
45              
46             =item fips2country($code)
47              
48             Returns the FIPS code for a country name.
49              
50             =item iso2fips($code)
51              
52             Convert an ISO country code to the corresponding FIPS code.
53              
54             =item fips2iso($code)
55              
56             Convert a FIPS country code to the corresponding ISO code.
57              
58             =item Code($name)
59              
60             Same as L. Deprecated.
61              
62             =item Name($code)
63              
64             Same as L. Deprecated.
65              
66             =back
67              
68             =head2 Geography::Country::FIPS::Capitals
69              
70             =over 4
71              
72             =item fips2capital($code)
73              
74             Returns the capital for the country specified as FIPS code.
75              
76             =back
77              
78             =head2 Geography::Country::TZ
79              
80             XXX: currently undocumented.
81              
82             =over 4
83              
84             =item from_iso
85              
86             =item areas
87              
88             =item areas_dmy
89              
90             =back
91              
92             =head2 Geography::Country::TZ::Zone
93              
94             XXX: currently undocumented.
95              
96             =over 4
97              
98             =item getblock
99              
100             =item conv
101              
102             =item getoffset
103              
104             =item getpastoffset
105              
106             =item getsave
107              
108             =item find
109              
110             =item maketime
111              
112             =back
113              
114             =cut
115              
116 3     3   2237 use Geography::Country::Dial ();
  3         7  
  3         72  
117 3     3   3631 use Geography::Country::FIPS ();
  3         8  
  3         137  
118 3     3   3528 use Geography::Country::FIPS::Capitals ();
  3         9  
  3         81  
119 3     3   2048 use Geography::Country::TZ ();
  3         13  
  3         95  
120 3     3   26 use Geography::Country::TZ::Zone ();
  3         54  
  3         494  
121              
122             sub import {
123 3     3   33 my $class = shift;
124 3         11 my $caller = caller;
125 3         9 my $param = join(',', map { '"' . quotemeta($_) . '"' } @_);
  6         24  
126 3         352 eval "package $caller; $_->import($param)" for qw(
127             Geography::Country::Dial
128             Geography::Country::FIPS
129             Geography::Country::FIPS::Capitals
130             Geography::Country::TZ
131             Geography::Country::TZ::Zone
132             );
133             }
134              
135             1;
136              
137             =head1 AUTHORS
138              
139             Ariel Brosh Eschop@cpan.orgE is the original author, now passed
140             away.
141              
142             Autrijus Tang Eautrijus@autrijus.orgE is the current maintainer.
143              
144             =head1 COPYRIGHT
145              
146             Copyright 2001, 2002 by Ariel Brosh.
147              
148             Copyright 2003, 2005 by Autrijus Tang.
149              
150             This program is free software; you can redistribute it and/or modify it
151             under the same terms as Perl itself.
152              
153             See L
154              
155             =cut
156              
157             __END__