File Coverage

blib/lib/Data/Validate/WithYAML/Plugin/Country.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	5	10	50.0
condition	3	4	75.0
subroutine	5	5	100.0
pod	0	1	0.0
total	35	46	76.0

package Data::Validate::WithYAML::Plugin::Country;

# ABSTRACT: check whether a given value is a valid country code

use strict;
use warnings;

use Carp;
use Locale::Country::Multilingual;

our $VERSION = 0.02;

sub check {
    my ($class, $value, $conf) = @_;

    $conf->{format} ||= 'alpha-2';

    if ( $conf->{format} eq 'alpha-2' ) {
        if ( length $value != 2 ) {
            carp "value is not in alpha-2 format";
            return;
        }
    }
    elsif ( $conf->{format} eq 'alpha-3' ) {
        if ( length $value != 3 ) {
            carp "value is not in alpha-3 format";
            return;
        }
    }
    else {
        croak "unsupported format " . $conf->{format};
    }

    my $lcm = Locale::Country::Multilingual->new(
        lang         => $conf->{lang} || 'en',
        use_io_layer => 1,
    );

    if ( $lcm->code2country( $value ) ) {
        return 1;
    }

    return;
}

1;

__END__