File Coverage

blib/lib/Parse/ErrorString/Perl/StackItem.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition 1 3 33.3
subroutine 4 4 100.0
pod 0 1 0.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             package Parse::ErrorString::Perl::StackItem;
2              
3              
4 6     6   41 use strict;
  6         10  
  6         333  
5 6     6   36 use warnings;
  6         12  
  6         683  
6              
7             our $VERSION = '0.21';
8              
9             sub new {
10 2     2 0 4 my ( $class, $self ) = @_;
11 2   33     11 bless $self, ref $class || $class;
12 2         5 return $self;
13             }
14              
15 6         53 use Class::XSAccessor getters => {
16             sub => 'sub',
17             file => 'file',
18             file_abspath => 'file_abspath',
19             file_msgpath => 'file_msgpath',
20             line => 'line',
21 6     6   34 };
  6         10  
22              
23             1;
24              
25             __END__