The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
Business-DK-CVR-0.01
River stage one • 1 direct dependent • 1 total dependent
/ Business::DK::CVR

NAME

Business::DK::CVR - a danish CVR (VAT Registration) code generator/validator

VERSION

This documentation describes version 0.01

SYNOPSIS

        use Business::DK::CVR qw(validate);

        my $rv;
        eval {
                $rv = validate(27355021);
        };
        
        if ($@) {
                die "Code is not of the expected format - $@";
        }
        
        if ($rv) {
                print "Code is valid";
        } else {
                print "Code is not valid";
        }

DESCRIPTION

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

validate

The function takes a single argument, a 10 digit CVR number.

The function returns 1 (true) in case of a valid CVR number argument and 0 (false) in case of an invalid CVR number argument.

The validation function goes through the following steps.

Validation of the argument is done using the functions (all described below in detail):

_argument, exported by Business::DK::PO
_content, exported by Business::DK::PO
_length

If the argument is a valid argument the sum is calculated by _calculate_sum based on the argument and the controlcifers array.

The sum returned is checked using a modulus caluculation and based on its validity either 1 or 0 is returned.

PRIVATE FUNCTIONS

_length

This function validates the length of the argument, it dies if the argument does not fit wihtin the boundaries specified by the arguments provided:

The _length function takes the following arguments:

number (mandatory), the number to be validated
length required of number (mandatory)

_calculate_sum

This function takes an integer and calculates the sum bases on the the controlcifer array.

EXPORTS

Business::DK::CVR exports on request:

validate
_length
_calculate_sum

TESTS

Coverage of the test suite is at 100%

BUGS

Please report issues via CPAN RT:

  http://rt.cpan.org/NoAuth/Bugs.html?Dist=Business-DK-CVR

or by sending mail to

  bug-Business-DK-CVR@rt.cpan.org

SEE ALSO

http://www.cpr.dk/
Business::DK::PO
Business::DK::CPR

AUTHOR

Jonas B. Nielsen, (jonasbn) - <jonasbn@cpan.org>

COPYRIGHT

Business-DK-CVR is (C) by Jonas B. Nielsen, (jonasbn) 2006

Business-DK-CVR is released under the artistic license

The distribution is licensed under the Artistic License, as specified by the Artistic file in the standard perl distribution (http://www.perl.com/language/misc/Artistic.html).