NAME
Business::RU::BankAccount
SYNOPSIS
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 ...
}DESCRIPTION
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.
METHODS
validate_current_account()
validate_correspondent_account()
validate_bic()
_validate_account()
Calculate bank accont check sum. Internal method.
SEE ALSO
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.