Business::RU::BankAccount
package myDecorator; use Moose; has 'current_account' => ( is => 'ro', isa => 'Int' ); has 'correspondent_account' => ( is => 'ro', isa => 'Int' ); has 'bic' => ( is => 'ro', isa => 'Int' ); with 'Business::RU::BankAccount'; ... my $decorator = myDecorator -> new( current_account => $current_account, correspondents_account => $correspondent_account, bic => $bic, ); if( $decorator -> validate_bic() && $decorator -> validate_current_account() && $decorator -> validate_correspondent_account() ) { ... success ... } else { ... process error ... }
Validate bank account details - BIC, current and correspondent accounts. NOTE: This role expects that it's consuming class will have a bic, current_account and correspondent_account methods.
bic
current_account
correspondent_account
Calculate bank accont check sum. Internal method.
http://ru.wikipedia.org/wiki/%D0%91%D0%B0%D0%BD%D0%BA%D0%BE%D0%B2%D1%81%D0%BA%D0%B8%D0%B9_%D1%81%D1%87%D0%B5%D1%82
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.