NAME

Business::RU::OKPO

VERSION

version 0.1

SYNOPSIS

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

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

DESCRIPTION

Validate russian national classification of enterprises and organizations (OKPO) NOTE: This role expects that it's consuming class will have a okpo method.

METHODS

validate_okpo()

Validate OKPO. Return true if OKPO valid.

SEE ALSO

http://ru.wikipedia.org/wiki/%D0%9E%D0%9A%D0%9F%D0%9E

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.