File Coverage

blib/lib/Evo/Class/T.pm
Criterion Covered Total %
statement 16 16 100.0
branch 8 10 80.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 29 31 93.5


line stmt bran cond sub pod time code
1             package Evo::Class::T;
2 1     1   368 use Evo '-Export *; Carp croak; List::Util any';
  1         3  
  1         6  
3              
4 3     3 1 13 sub T_ENUM(@list) : Export {
  3         4  
5 3 100       126 croak "empty enum list" unless @list;
6 8 50   8   27 sub($v) {
  8 50       17  
  8         15  
  8         12  
7 8 100       43 any { defined $v ? defined $_ ? $_ eq $v : !defined $v : !defined $_ } @list;
  15 100       70  
8 2         12 };
9 1     1   10 }
  1         3  
  1         6  
10              
11             1;
12              
13             __END__