File Coverage

blib/lib/IO/Validation/Asnvalidation.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 16 18 88.8


line stmt bran cond sub pod time code
1             package IO::Validation::Asnvalidation;
2              
3 2     2   74442 use 5.026001;
  2         8  
4 2     2   11 use strict;
  2         4  
  2         40  
5 2     2   10 use warnings;
  2         5  
  2         232  
6              
7             sub validate {
8 1     1 0 3 my ($self, $asn) = @_;
9 1 50       4 if( not ( $asn =~ m/^(as|AS)(\d+)$/ ))
10             {
11              
12 1         10 die "Invalid ASN number";
13              
14             }
15             }
16              
17              
18             1;
19             __END__