File Coverage

blib/lib/Data/FormValidator/Constraints/Business/DK/Phonenumber.pm

Criterion	Covered	Total	%
statement	28	32	87.5
branch	2	4	50.0
condition			n/a
subroutine	9	10	90.0
pod	2	2	100.0
total	41	48	85.4

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

use strict;
use warnings;
use vars qw($VERSION @EXPORT_OK);
use Business::DK::Phonenumber qw(validate render);
use base qw(Exporter);

$VERSION   = '0.09';
@EXPORT_OK = qw(valid_dk_phonenumber match_dk_phonenumber);

use constant VALID   => 1;
use constant INVALID => undef;

sub valid_dk_phonenumber {
    return sub {
        my $dfv = shift;

        $dfv->name_this('valid_dk_phonenumber');

        my $phonenumber = $dfv->get_current_constraint_value();

        if ( validate($phonenumber) ) {
            return VALID;
        } else {
            return INVALID;
        }
        }
}

sub match_dk_phonenumber {
    my ( $dfv, $format ) = @_;

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

    my ($untainted_phonenumber) = render($phonenumber);

    return $untainted_phonenumber;
}

1;

__END__