NAME
Business::DK::CVR - a danish CVR (VAT Registration) code generator/validator
VERSION
This documentation describes version 0.04
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:
_calculate_sum
This function takes an integer and calculates the sum bases on the the controlcifer array.
EXPORTS
Business::DK::CVR exports on request:
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
- http://search.cpan.org/dist/Algorithm-CheckDigits
- http://search.cpan.org/~mamawe/Algorithm-CheckDigits-0.38/CheckDigits/M11_008.pm
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).