File Coverage

lib/Data/FormValidator/Constraints/Business/DK/Postalcode.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	8	8	100.0
condition			n/a
subroutine	13	13	100.0
pod	3	3	100.0
total	61	61	100.0

package Data::FormValidator::Constraints::Business::DK::Postalcode;

use strict;
use warnings;
use vars qw(@ISA $VERSION @EXPORT_OK);
use Business::DK::Postalcode qw(validate);
use Scalar::Util qw(blessed);
use Carp qw(croak);

use base 'Exporter';

@EXPORT_OK
    = qw(valid_postalcode match_postalcode postalcode danish_postalcode postalcode_denmark);

use constant INVALID => undef;

our $VERSION = '0.11';

sub postalcode {
    return sub {
        return match_postalcode(@_);
        }
}

sub valid_postalcode {
    return sub {
        return match_postalcode(@_);
        }
}

sub match_postalcode {
    my $dfv = shift;

    my $postalcode = ref $dfv ? $dfv->get_current_constraint_value : $dfv;

    if ( ref $dfv ) {
        $dfv->name_this('match_postalcode');
    }

    if ( my $untainted_postalcode = validate($postalcode) ) {
        if ( ref $dfv ) {
            $dfv->untainted_constraint_value($untainted_postalcode);
        }

        return $untainted_postalcode;
    } else {
        return INVALID;
    }
}

1;

__END__