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   2895 use strict;
  3         5  
  3         106  
4 3     3   12 use warnings;
  3         5  
  3         78  
5 3     3   10 use version;
  3         15  
  3         19  
6              
7 3     3   217 use base qw( Text::RecordParser );
  3         3  
  3         449  
8              
9             our $VERSION = version->new('1.4.0');
10              
11             # ----------------------------------------------------------------
12             sub new {
13 2     2 1 1127 my $class = shift;
14 2         21 my $self = $class->SUPER::new( @_ );
15              
16 2         21 $self->field_separator("\t");
17              
18 2         5 return $self;
19             }
20              
21             1;
22              
23             __END__