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 1     1   18 use v5.12;
  1         4  
2 1     1   7 use strict;
  1         3  
  1         27  
3 1     1   6 use warnings;
  1         3  
  1         66  
4              
5             package Data::Validate::CSV::MultiValueCell;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.002';
9              
10 1     1   7 use Moo;
  1         3  
  1         7  
11 1     1   372 use B ();
  1         3  
  1         38  
12 1     1   8 use Data::Validate::CSV::Types -types;
  1         4  
  1         13  
13 1     1   6679 use namespace::autoclean;
  1         3  
  1         13  
14              
15             with 'Data::Validate::CSV::Cell';
16              
17 1     1   155 use overload '@{}' => sub { shift->value }, fallback => 1;
  1     0   2  
  1         13  
  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;