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