package Data::Validate::WithYAML::Plugin::IBAN;
# ABSTRACT: check whether a given value is a valid IBAN
use strict;
use warnings;
use Carp;
use Algorithm::CheckDigits;
our $VERSION = 0.03;
sub check {
my ($class, $value, $conf) = @_;
return CheckDigits('iban')->is_valid( $value );
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Data::Validate::WithYAML::Plugin::IBAN - check whether a given value is a valid IBAN
=head1 VERSION
version 0.03
=head1 SYNOPSIS
Your F<test.pl>:
use Data::Validate::WithYAML;
my $validator = Data::Validate::WithYAML->new( 'validate.yml' );
my %params = (
iban => 'DE013958219385182',
# more user input
);
my %errors = $validator->validate( \%params );
Your F<validate.yml>:
---
bank_account:
type: required
plugin: IBAN
=head1 DESCRIPTION
Check if the given value is a valid IBAN
=head1 AUTHOR
Renee Baecker <reneeb@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2015 by Renee Baecker.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut