File Coverage

blib/lib/Text/RecordParser/Object.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::Object;
2              
3 2     2   2448 use strict;
  2         4  
  2         71  
4 2     2   12 use warnings;
  2         3  
  2         55  
5 2     2   9 use version;
  2         5  
  2         14  
6              
7 2     2   200 use base qw( Class::Accessor );
  2         4  
  2         3956  
8              
9             our $VERSION = version->new('1.4.0');
10              
11             sub new {
12 3     3 1 6 my ( $class, $field_names, $self ) = @_;
13 3         22 $class->mk_ro_accessors( @$field_names );
14 3         468 bless $self, $class;
15 3         13 return $self;
16             }
17              
18             1;
19              
20             __END__