File Coverage

blib/lib/Cikl/DataTypes/Asn.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Cikl::DataTypes::Asn;
2 3     3   1144 use strict;
  3         6  
  3         131  
3 3     3   17 use warnings;
  3         7  
  3         84  
4 3     3   836 use namespace::autoclean;
  3         38609  
  3         21  
5 3     3   223 use Mouse::Util::TypeConstraints;
  3         5  
  3         32  
6              
7 3     3   299 use constant MAX_ASN => 2**32 - 1;
  3         6  
  3         573  
8              
9             subtype 'Cikl::DataTypes::Asn',
10             as 'Int',
11             where { $_ >= 0 && $_ <= MAX_ASN && $_ !~ /\s/},
12             message { "Invalid ASN: $_"} ;
13             1;
14              
15