File Coverage

lib/CGI/ValidOp/Check/demographics.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	11	12	91.6
condition	2	3	66.6
subroutine	7	7	100.0
pod	2	2	100.0
total	48	50	96.0

package CGI::ValidOp::Check::demographics;
use strict;
use warnings;

use base qw/ CGI::ValidOp::Check /;

# sub default {
#     (
#         qr/^on$/i,
#         q#Parameter $label must be a US state name.#,
#     )
# }

sub us_state2 {
    my $self = shift;
    sub {
        my $value = shift;
        return $self->pass unless defined $value;
        my $errmsg = q/$label must be the 2-letter abbreviation for a US state name./;
        return $self->fail( $errmsg ) unless $value =~ /^\w{2}$/;
        return $self->pass( $1 ) if $value =~
            qr/^(al|ak|as|az|ar|ca|co|ct|de|dc|fm|fl|ga|gu|hi|id|il|in|ia|ks|ky|la|me|mh|md|ma|mi|mn|ms|mo|mt|ne|nv|nh|nj|nm|ny|nc|nd|mp|oh|ok|or|pw|pa|pr|ri|sc|sd|tn|tx|ut|vt|vi|va|wa|wv|wi|wy)$/i;
        $self->fail( $errmsg );
    }
}

sub us_ssn {
    my $self = shift;
    sub {
        my( $value, $constraint ) = @_;
        return $self->pass unless defined $value;
        if( $value =~ /(^\d{3}-?\d{2}-?\d{4}$)/ ) {
            my $ssn = $1;
            $ssn =~ s/-//g if $constraint and $constraint eq 'integer';
            return $self->pass( $ssn );
        }
        return $self->fail( q/$label must be a number like "123-45-6789"./);
    }
}

1;

__END__