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             $Data::TableReader::Decoder::IdiotCSV::VERSION = '0.010';
3 1     1   70896 use Moo 2;
  1         10680  
  1         6  
4 1     1   1523 use Try::Tiny;
  1         3  
  1         49  
5 1     1   6 use Carp;
  1         2  
  1         47  
6 1     1   482 use Log::Any '$log';
  1         10324  
  1         6  
7              
8             extends 'Data::TableReader::Decoder::CSV';
9              
10             # ABSTRACT: Access rows of a badly formatted comma-delimited text file
11              
12              
13             sub _build_parser {
14 1   50 1   21 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__