File Coverage

blib/lib/Cikl/DataTypes/Email.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Cikl::DataTypes::Email;
2 2     2   11 use strict;
  2         3  
  2         78  
3 2     2   12 use warnings;
  2         2  
  2         61  
4 2     2   11 use namespace::autoclean;
  2         4  
  2         12  
5 2     2   1309 use Cikl::DataTypes::LowerCaseStr;
  2         5  
  2         77  
6 2     2   18 use Mouse::Util::TypeConstraints;
  2         4  
  2         28  
7 2     2   5044 use Mail::RFC822::Address qw/valid/;
  2         2163  
  2         349  
8              
9             subtype 'Cikl::DataTypes::Email',
10             as 'Cikl::DataTypes::LowerCaseStr',
11             where { valid($_) && $_ !~ /^\s+|\s+$/ },
12             message { "Invalid E-Mail address: $_"} ;
13             1;
14              
15              
16