File Coverage

blib/lib/Input/Validator/Constraint/In.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Input::Validator::Constraint::In;
2              
3 4     4   25038 use strict;
  4         7  
  4         141  
4 4     4   20 use warnings;
  4         7  
  4         137  
5              
6 4     4   22 use base 'Input::Validator::Constraint';
  4         5  
  4         1450  
7              
8             sub is_valid {
9 6     6 1 731 my ($self, $value) = @_;
10              
11 6 100       8 return (grep { $value eq $_ } @{$self->args}) ? 1 : 0;
  15         52  
  6         31  
12             }
13              
14             1;
15             __END__