German Semenkov > Business-RU-0.1 > Business::RU::BankAccount

Download:
Business-RU-0.1.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Source   Latest Release: Business-RU-0.2

NAME ^

Business::RU::BankAccount

VERSION ^

version 0.1

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.

syntax highlighting: