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.