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 1     1   67426 use Moo 2;
  1         10107  
  1         6  
3 1     1   1390 use Try::Tiny;
  1         3  
  1         48  
4 1     1   5 use Carp;
  1         2  
  1         44  
5 1     1   466 use Log::Any '$log';
  1         9852  
  1         5  
6              
7             # ABSTRACT: Access rows of a tab-delimited text file
8             our $VERSION = '0.011'; # VERSION
9              
10              
11             extends 'Data::TableReader::Decoder::CSV';
12              
13             sub _build_parser {
14 1   50 1   21 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__