File Coverage

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

Criterion	Covered	Total	%
statement	36	41	87.8
branch	4	8	50.0
condition	1	3	33.3
subroutine	11	12	91.6
pod	2	2	100.0
total	54	66	81.8

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

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

use base 'Exporter';

@EXPORT_OK = qw(valid_cvr match_valid_cvr);

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

$VERSION = '0.11';

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

        if ( !blessed $dfv || !$dfv->isa('Data::FormValidator::Results') ) {
            croak('Must be called using \'constraint_methods\'!');
        }

        my $cvr = $dfv->get_current_constraint_value;

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

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

sub match_valid_cvr {
    my $dfv = shift;

    # if $dfv is a ref then we are called as 'constraint_method'
    # else as 'constraint'

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

    #my $cvr = $dfv->get_current_constraint_value;

    my ($untainted_cvr) = $cvr =~ m/\b(\d{8})\b/smx;

    return $dfv->untainted_constraint_value($untainted_cvr);
}

1;

__END__