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.