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:
$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.