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   401 use Evo '-Export *; Carp croak; List::Util any';
  1         1  
  1         7  
3              
4 3     3 1 13 sub T_ENUM(@list) : Export {
  3         7  
5 3 100       138 croak "empty enum list" unless @list;
6 8 50   8   31 sub($v) {
  8 50       20  
  8         17  
  8         12  
7 8 100       51 any { defined $v ? defined $_ ? $_ eq $v : !defined $v : !defined $_ } @list;
  15 100       94  
8 2         14 };
9 1     1   6 }
  1         2  
  1         4  
10              
11             1;
12              
13             __END__