File Coverage

blib/lib/Text/RecordParser/Tab.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Text::RecordParser::Tab;
2              
3 3     3   1409 use strict;
  3         3  
  3         73  
4 3     3   9 use warnings;
  3         3  
  3         52  
5 3     3   12 use version;
  3         3  
  3         12  
6              
7 3     3   160 use base qw( Text::RecordParser );
  3         2  
  3         375  
8              
9             our $VERSION = version->new('1.4.0');
10              
11             # ----------------------------------------------------------------
12             sub new {
13 2     2 1 645 my $class = shift;
14 2         14 my $self = $class->SUPER::new( @_ );
15              
16 2         9 $self->field_separator("\t");
17              
18 2         4 return $self;
19             }
20              
21             1;
22              
23             __END__