| Business::DK::CVR - a danish CVR code generator/validator |
Business::DK::CVR - a danish CVR (VAT Registration) code generator/validator
This documentation describes version 0.04
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";
}
CVR is a company registration number used in conjuction with VAT handling.
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):
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.
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:
This function takes an integer and calculates the sum bases on the the controlcifer array.
Business::DK::CVR exports on request:
Coverage of the test suite is at 100%
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
Jonas B. Nielsen, (jonasbn) - <jonasbn@cpan.org>
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).
| Business::DK::CVR - a danish CVR code generator/validator |