NAME

Business::IBAN::Validator - A validator for the structure of IBANs.

SYNOPSIS

    use Business::IBAN::Validator;
    my $v = Business::IBAN::Validator->new;
    while (1) {
        print 'Enter IBAN: ';
        chomp(my $input = <>);
        last if !$input;
        eval { $v->validate($input) };
        if ($@) {
            print "Not ok: $@";
        }
        else {
            print "OK\n";
        }
    }

DESCRIPTION

This module does a series of checks on an IBAN:

Country code

Length

Pattern

97-Check

$v = Business::IBAN::Validator->new()

Return an IBAN validator object.

$v->validate($iban)

Perform a series of checks, and die() as soon as one fails.

Return 1 on success.

$v->is_sepa($iban)

Return the SEPA status of the country (as denoted by the first two letters).

COPYRIGHT

© MMXIII-MMXV - Abe Timmerman <abeltje@cpan.org>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.