File Coverage

blib/lib/Data/Validate/CSV/MultiValueCell.pm
Criterion Covered Total %
statement 23 26 88.4
branch n/a
condition n/a
subroutine 8 10 80.0
pod n/a
total 31 36 86.1


line stmt bran cond sub pod time code
1 2     2   32 use v5.12;
  2         9  
2 2     2   12 use strict;
  2         10  
  2         46  
3 2     2   10 use warnings;
  2         5  
  2         150  
4              
5             package Data::Validate::CSV::MultiValueCell;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.003';
9              
10 2     2   25 use Moo;
  2         7  
  2         21  
11 2     2   726 use B ();
  2         6  
  2         58  
12 2     2   12 use Data::Validate::CSV::Types -types;
  2         6  
  2         27  
13 2     2   11944 use namespace::autoclean;
  2         5  
  2         22  
14              
15             with 'Data::Validate::CSV::Cell';
16              
17 2     2   264 use overload '@{}' => sub { shift->value }, fallback => 1;
  2     0   9  
  2         21  
  0            
18              
19             has '+value' => (isa => ArrayRef);
20              
21             sub _chunk_for_key_string {
22 0     0     join ';', map B::perlstring($_), @{shift->value};
  0            
23             }
24              
25             1;