#
# Set a default country at import time
#
use Locales::Country ( "am" );
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";