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.009';
3 1     1   61378 use Moo 2;
  1         9428  
  1         5  
4 1     1   1299 use Try::Tiny;
  1         2  
  1         40  
5 1     1   5 use Carp;
  1         1  
  1         39  
6 1     1   397 use Log::Any '$log';
  1         9098  
  1         4  
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   31 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__