File Coverage

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

Criterion	Covered	Total	%
statement	13	15	86.6
branch	4	6	66.6
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	23	27	85.1

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


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

    # US 5 or 9 digit zip codes
    if ( $value =~ /^(\d{5})(?:[\-|\||\.|_|\s]*\d{4})?$/ ) {
        # trim zip9 down to 5 for now
        # TODO: add separate field for zip9 ( see revision 94419 for original code)
        return $1;
    }
    elsif ($value =~ /^(apo|fpo)[\-|\||\.|_|\s]*aa[\-|\||\.|_|\s]*(\d{5})$/) {
        return $2;
    }
    # Canada
    elsif ( $value =~ /^([a-z]\d[a-z])(\s|-|\||\.|_)*(\d[a-z]\d)$/ ) {
        $value = join '',$1,$3;
        return $value;
    }
    else {
        die "Invalid zip code";
    }
}

sub new {
    my $self = shift;
    return bless {@_}, $self;
}

1;

__END__