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

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

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.