German Semenkov > Business-RU > Business::RU::INN

Download:
Business-RU-0.2.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Source  

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.

syntax highlighting: