Why not adopt me?
This distribution is up for adoption!
If you're interested then please contact the PAUSE module admins via
email.
NAME
Business::IBAN::Validator - A validator for the structure of IBANs.
SYNOPSIS
my
$v
= Business::IBAN::Validator->new;
while
(1) {
'Enter IBAN: '
;
chomp
(
my
$input
= <>);
last
if
!
$input
;
eval
{
$v
->validate(
$input
) };
if
($@) {
"Not ok: $@"
;
}
else
{
"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.