NAME

Business::RU::INN

SYNOPSIS

package myDecorator;
use Moose;
has 'inn' => ( is => 'ro', isa => 'Int' );
with 'Business::RU::INN';

...

my $decorator = myDecorator -> new( inn => 123456789 );
if( $decorator -> validate_inn() ) {
    ... success ...
} else {
    ... process error ...
}

if( $decorator -> is_company() ) {
    ... process company data ..
}

if( $decorator -> is_individual() ) {
    ... process data ..
}

DESCRIPTION

Validate russian individual taxpayer number. NOTE: This role expects that it's consuming class will have a inn() method.

METHODS

validate_inn()

Validate INN. return true if INN valid

_validate_individual_inn()

Validate short INN. Internal method.

_validate_company_inn()

Validate long INN. Internal method.

is_individual()

Returns true if INN personal

is_company()

Raturns trus if it's company.

SEE ALSO

http://ru.wikipedia.org/wiki/%D0%98%D0%B4%D0%B5%D0%BD%D1%82%D0%B8%D1%84%D0%B8%D0%BA%D0%B0%D1%86%D0%B8%D0%BE%D0%BD%D0%BD%D1%8B%D0%B9_%D0%BD%D0%BE%D0%BC%D0%B5%D1%80_%D0%BD%D0%B0%D0%BB%D0%BE%D0%B3%D0%BE%D0%BF%D0%BB%D0%B0%D1%82%D0%B5%D0%BB%D1%8C%D1%89%D0%B8%D0%BA%D0%B0

BUGS

Please report any bugs through the web interface at http://rt.cpan.org or https://github.com/GermanS/Business-RU

AUTHOR

German Semenkov german.semenkov@gmail.com

COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.