Business::RU::OKPO
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 ... }
Validate russian national classification of enterprises and organizations (OKPO) NOTE: This role expects that it's consuming class will have a okpo method.
okpo
Validate OKPO. Return true if OKPO valid.
http://ru.wikipedia.org/wiki/%D0%9E%D0%9A%D0%9F%D0%9E
Please report any bugs through the web interface at http://rt.cpan.org or https://github.com/GermanS/Business-RU
German Semenkov german.semenkov@gmail.com
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install Business::RU, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Business::RU
CPAN shell
perl -MCPAN -e shell install Business::RU
For more information on module installation, please visit the detailed CPAN module installation guide.