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   372 use Evo '-Export *; Carp croak; List::Util any';
  1         2  
  1         6  
3              
4 3     3 1 10 sub T_ENUM(@list) : Export {
  3         6  
5 3 100       115 croak "empty enum list" unless @list;
6 8 50   8   27 sub($v) {
  8 50       19  
  8         11  
  8         11  
7 8 100       41 any { defined $v ? defined $_ ? $_ eq $v : !defined $v : !defined $_ } @list;
  15 100       61  
8 2         9 };
9 1     1   7 }
  1         2  
  1         3  
10              
11             1;
12              
13             __END__