File Coverage

blib/lib/Acme/CoC/Types.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Acme::CoC::Types;
2 3     3   1111 use strict;
  3         13  
  3         98  
3 3     3   16 use warnings;
  3         6  
  3         75  
4 3     3   15 use utf8;
  3         6  
  3         16  
5              
6 3     3   608 use Mouse::Util::TypeConstraints;
  3         21616  
  3         24  
7              
8             subtype 'command'
9             => as 'Str'
10             => where { $_ =~ /[Ss]kill|cc [1-9][0-9]*|ccb [1-9][0-9]*|[1-9][0-9]*[dD][1-9][0-9]*/ }
11             => message { qw/$_ is invalid command/ };
12              
13             1;