view release on metacpan or  search on metacpan

lib/App/LocaleCodesUtils.pm  view on Meta::CPAN

    my $code = $args{code};

    my $code2;
    if (length($code) == 2) {
        $code2 = Locale::Codes::Country::country_code2code($code, 'alpha-2', 'alpha-3');
    } elsif (length($code) == 3) {
        $code2 = Locale::Codes::Country::country_code2code($code, 'alpha-3', 'alpha-2');
    } else {
        return [400, "Please specify alpha-2 or alpha-3 code"];
    }
    return [404, "Unknown or non-unique code '$code'"] unless defined $code2;
    [200, "OK", $code2];
}

$SPEC{language_code2code} = {
    v => 1.1,
    summary => 'Convert language code (alpha2 <-> alpha3)',
    args => {
        code => {
            schema => 'language::code',
            req => 1,

lib/App/LocaleCodesUtils.pm  view on Meta::CPAN

    my $code = $args{code};

    my $code2;
    if (length($code) == 2) {
        $code2 = Locale::Codes::Language::language_code2code($code, 'alpha-2', 'alpha-3');
    } elsif (length($code) == 3) {
        $code2 = Locale::Codes::Language::language_code2code($code, 'alpha-3', 'alpha-2');
    } else {
        return [400, "Please specify alpha-2 or alpha-3 code"];
    }
    return [404, "Unknown or non-unique code '$code'"] unless defined $code2;
    [200, "OK", $code2];
}

1;
# ABSTRACT: Utilities related to locale codes

__END__

=pod