File Coverage

blib/lib/IO/Validation/Tokenvalidation.pm
Criterion Covered Total %
statement 8 11 72.7
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 11 18 61.1


line stmt bran cond sub pod time code
1             package IO::Validation::Tokenvalidation;
2              
3              
4 2     2   69425 use 5.026001;
  2         17  
5 2     2   11 use strict;
  2         3  
  2         40  
6 2     2   9 use warnings;
  2         4  
  2         158  
7              
8             sub validate {
9 0     0 0   my ($self, $token) = @_;
10 0 0         if(length($token) <= 25)
11             {
12              
13 0           die "Invalid IPFINDER API Token";
14              
15             }
16             }
17              
18              
19             1;
20             __END__