Business::FR::SIRET - Verify French Companies SIRET
use Business::FR::SIRET; $c = Business::FR::SIRET->new('00011122233344'); print $c->siret()." looks good\n" if $c->is_valid();
$c = Business::FR::SIRET->new(); $c->siret('00011122233344'); print "looks good\n" if $c->is_valid();
print "looks good\n" if $c->is_valid('00011122233344');
This module verifies SIRETs, which are french companies identification. This module cannot tell if a SIRET references a real company, but it can tell you if the given SIRET is properly formatted.
new([$siret])
The new constructor optionally takes a SIRET number.
siret([$siret])
if no argument is given, it returns the current SIRET number. if an argument is provided, it will set the SIRET number and return it.
is_valid([$siret])
Returns true if the SIRET number is valid.
Please report any requests, suggestions or bugs via the RT bug-tracking system at http://rt.cpan.org/ or email to bug-Business-FR-SIRET\@rt.cpan.org.
http://rt.cpan.org/NoAuth/Bugs.html?Dist=Business-FR-SIRET is the RT queue for Business::FR::SIRET. Please check to see if your bug has already been reported.
Copyright 2004
Fabien Potencier, fabpot@cpan.org
This software may be freely copied and distributed under the same terms and conditions as Perl.
perl(1), Algorithm::LUHN.