view release on metacpan or  search on metacpan

examples/params-validate.pl  view on Meta::CPAN

    check_cvr(cvr => 27355020);
};

if ($@) {
    print "CVR is not valid - $@\n";
}

sub check_cvr {
    validate( @_,
    { cvr =>
        { callbacks =>
            { 'validate_cvr' => sub { validateCVR($_[0]); } } } } );
    
    print $_[1]." is a valid CVR\n";

}

lib/Business/DK/CVR.pm  view on Meta::CPAN

        check_cvr(cvr => 27355020);
    };

    if ($@) {
        print "CVR is not valid - $@\n";
    }

    sub check_cvr {
        validate( @_,
        { cvr =>
            { callbacks =>
                { 'validate_cvr' => sub { validateCVR($_[0]); } } } } );

        print "$_[0] is a valid CVR\n";

    }

=head1 DESCRIPTION

CVR is a company registration number used in conjuction with VAT handling in
Denmark.