File Coverage

blib/lib/Data/Validate/WithYAML/Plugin/IBAN.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Data::Validate::WithYAML::Plugin::IBAN;
2              
3             # ABSTRACT: check whether a given value is a valid IBAN
4              
5 1     1   64429 use strict;
  1         2  
  1         28  
6 1     1   6 use warnings;
  1         2  
  1         22  
7              
8 1     1   5 use Carp;
  1         2  
  1         52  
9 1     1   561 use Algorithm::CheckDigits;
  1         3941  
  1         119  
10              
11             our $VERSION = 0.04;
12              
13             sub check {
14 14     14 1 6846 my ($class, $value, $conf) = @_;
15              
16 14         42 return CheckDigits('iban')->is_valid( $value );
17             }
18              
19             1;
20              
21             __END__