.\" Automatically generated by Pod::Man 2.28 (Pod::Simple 3.29) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is turned on, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{ . if \nF \{ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" ======================================================================== .\" .IX Title "CountryCode 3pm" .TH CountryCode 3pm "2016-03-04" "perl v5.22.1" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" NCC::CountryCode \- Perl extension for blah blah blah .SH "SYNOPSIS" .IX Header "SYNOPSIS" .Vb 1 \& use NCC::CountryCode; \& \& my $cc = new NCC::CountryCode(); \& \& my $cc_hash = $cc\->getCCs(); \& \& print ($cc\->isCC(\*(AqNL\*(Aq)) ? "exists" : "non\-existing"; \& \& $cc\->CC2Country(\*(Aqfr\*(Aq); \& \& $cc\->Country2CC(\*(Aqrussia\*(Aq); .Ve .SH "DESCRIPTION" .IX Header "DESCRIPTION" This module provides class and several methods to simplify mapping between country names and country codes, as they assigned in the \s-1ISO3166.\s0 .PP The \fICC2Country()\fR method maps country code to the corresponding country name or empty string, if it doesn\e't exist. .PP The \fICountry2CC()\fR tries to map passed country name into country code. As the spelling of the name may vary, this function tries to find all possible matches for passed name. In array context method returns hash of country codes and names, in scalar \- a string, containing all possible country codes and corresponding country names. .PP The \fIisCC()\fR method verifies, that passed country code is a legal one and returns it in upper case. Otherwise it returns empty string. .PP The \fIgetCCs()\fR method returns the reference to the internal hash, that contains all the country codes with corresponding them country names. .SH "BUGS" .IX Header "BUGS" In addition to the country codes defined by \s-1ISO3166\s0 standard this module also introduce '\s-1UK\s0' as a synonim for '\s-1GB\s0' and '\s-1EU\s0' as additional 'virtual' name for the Europe itself. .SH "AUTHOR" .IX Header "AUTHOR" Timur Bakeyev, timur@ripe.net .SH "SEE ALSO" .IX Header "SEE ALSO" \&\fIperl\fR\|(1).