my
$am
= new Locales::Country;
my
$de
= new Locales::Country (
"de"
);
my
$en
= new Locales::Country (
"en"
);
my
$fr
= new Locales::Country (
"fr"
);
print
"Alpha 2 'gb':\n"
;
print
" "
,
$am
->getLocale,
" => "
,
$am
->code2country (
"gb"
),
"\n"
;
print
" "
,
$de
->getLocale,
" => "
,
$de
->code2country (
"gb"
),
"\n"
;
print
" "
,
$en
->getLocale,
" => "
,
$en
->code2country (
"gb"
),
"\n"
;
print
" "
,
$fr
->getLocale,
" => "
,
$fr
->code2country (
"gb"
),
"\n"
;
print
"Alpha 3 'gbr':\n"
;
print
" "
,
$am
->getLocale,
" => "
,
$am
->code2country (
"gbr"
),
"\n"
;
print
" "
,
$de
->getLocale,
" => "
,
$de
->code2country (
"gbr"
),
"\n"
;
print
" "
,
$en
->getLocale,
" => "
,
$en
->code2country (
"gbr"
),
"\n"
;
print
" "
,
$fr
->getLocale,
" => "
,
$fr
->code2country (
"gbr"
),
"\n"
;
print
"Numeric '826':\n"
;
print
" "
,
$am
->getLocale,
" => "
,
$am
->code2country (
"826"
),
"\n"
;
print
" "
,
$de
->getLocale,
" => "
,
$de
->code2country (
"826"
),
"\n"
;
print
" "
,
$en
->getLocale,
" => "
,
$en
->code2country (
"826"
),
"\n"
;
print
" "
,
$fr
->getLocale,
" => "
,
$fr
->code2country (
"826"
),
"\n"
;