File Coverage

blib/lib/Cikl/DataTypes/LowerCaseStr.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::LowerCaseStr;
2 4     4   1197 use strict;
  4         8  
  4         267  
3 4     4   24 use warnings;
  4         16  
  4         111  
4 4     4   1809 use namespace::autoclean;
  4         84387  
  4         26  
5 4     4   508 use Mouse::Util::TypeConstraints;
  4         9  
  4         57  
6              
7             subtype "Cikl::DataTypes::LowerCaseStr",
8             as 'Str',
9 4     4   16674 where { !/\p{Upper}/ms },
  4         55  
  4         89  
10             message { "Must be lowercase." };
11              
12             coerce 'Cikl::DataTypes::LowerCaseStr',
13             from 'Str',
14             via { lc };
15              
16             1;
17              
18