File Coverage

blib/lib/String/Normal/Type/State.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch	4	6	66.6
condition	1	2	50.0
subroutine	5	5	100.0
pod	2	2	100.0
total	29	34	85.2

package String::Normal::Type::State;
use strict;
use warnings;

use String::Normal::Config::States;

our $codes;

sub transform {
    my ($self,$value) = @_;

    if (length($value) > 2) {
        # convert long name to short name (with potential invalidation)
        $value = $codes->{by_long}{$value} || '';
    }
    elsif (! $codes->{by_short}{$value}) {
        # invalidate short name
        $value = '';
    }

    # now validate against country code
    # TODO: contemplate moving country awareness to a higher level
    #       if more fields require such validation (hint ... zipcodes)
#    if ($values[$schema{country}] eq 'US') {
#        $value = '' unless $us_codes->{$value};
#    }
#    elsif ($values[$schema{country}] eq 'CA') {
#        $value = '' unless $ca_codes->{$value};
#    }

    if ($value) {
        return $value;
    }
    else {
        die "invalid state";
    }

}

sub new {
    my $self = shift;
    $codes = String::Normal::Config::States::_data( @_ );
    return bless {@_}, $self;
}

1;

__END__