File Coverage

blib/lib/Data/TableReader/Decoder/IdiotCSV.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition 1 2 50.0
subroutine 5 5 100.0
pod n/a
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Data::TableReader::Decoder::IdiotCSV;
2 1     1   68193 use Moo 2;
  1         10291  
  1         6  
3 1     1   1405 use Try::Tiny;
  1         3  
  1         52  
4 1     1   6 use Carp;
  1         2  
  1         48  
5 1     1   476 use Log::Any '$log';
  1         10107  
  1         5  
6              
7             extends 'Data::TableReader::Decoder::CSV';
8              
9             # ABSTRACT: Access rows of a badly formatted comma-delimited text file
10             our $VERSION = '0.011'; # VERSION
11              
12              
13             sub _build_parser {
14 1   50 1   24 my $args= shift->_parser_args || {};
15 1         5 Data::TableReader::Decoder::CSV->default_csv_module->new({
16             binary => 1,
17             allow_loose_quotes => 1,
18             allow_whitespace => 1,
19             auto_diag => 1,
20             escape_char => undef,
21             %$args,
22             });
23             }
24              
25             1;
26              
27             __END__