File Coverage

blib/lib/Data/TableReader/Decoder/TSV.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::TSV;
2             $Data::TableReader::Decoder::TSV::VERSION = '0.009';
3 1     1   55657 use Moo 2;
  1         8368  
  1         5  
4 1     1   1181 use Try::Tiny;
  1         2  
  1         39  
5 1     1   4 use Carp;
  1         2  
  1         39  
6 1     1   378 use Log::Any '$log';
  1         8130  
  1         4  
7              
8             # ABSTRACT: Access rows of a tab-delimited text file
9              
10              
11             extends 'Data::TableReader::Decoder::CSV';
12              
13             sub _build_parser {
14 1   50 1   16 my $args= shift->_parser_args || {};
15 1         4 Data::TableReader::Decoder::CSV->default_csv_module->new({
16             binary => 1,
17             allow_loose_quotes => 1,
18             auto_diag => 2,
19             sep_char => "\t",
20             escape_char => undef,
21             %$args,
22             });
23             }
24              
25             1;
26              
27             __END__