File Coverage

blib/lib/Cikl/DataTypes/Ipv4Cidr.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Cikl::DataTypes::Ipv4Cidr;
2 2     2   11 use strict;
  2         5  
  2         68  
3 2     2   10 use warnings;
  2         3  
  2         51  
4 2     2   11 use namespace::autoclean;
  2         3  
  2         11  
5 2     2   124 use Mouse::Util::TypeConstraints;
  2         3  
  2         16  
6 2     2   1181 use Regexp::Common;
  2         5711  
  2         13  
7 2     2   296452 use Regexp::Common::net::CIDR;
  2         758  
  2         131  
8              
9 2     2   16 use constant RE_IPV4_CIDR => qr/^$RE{'net'}{'CIDR'}{'IPv4'}$/;
  2         4  
  2         18  
10              
11             subtype 'Cikl::DataTypes::Ipv4Cidr',
12             as 'Str',
13             where { $_ =~ RE_IPV4_CIDR },
14             message { "Invalid Ipv4 CIDR '$_'"} ;
15              
16             1;
17