NAME

Business::FR::SIRET - Verify French Companies SIRET

SYNOPSIS

  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');

DESCRIPTION

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.

METHODS

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.

REQUESTS & BUGS

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

Copyright 2004

Fabien Potencier, fabpot@cpan.org

This software may be freely copied and distributed under the same terms and conditions as Perl.

SEE ALSO

perl(1), Algorithm::LUHN.