File Coverage

blib/lib/Parse/ErrorString/Perl/ErrorItem.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	2	50.0
total	23	27	85.1

package Parse::ErrorString::Perl::ErrorItem;


use strict;
use warnings;

our $VERSION = '0.26';

use Class::XSAccessor getters => {
	type             => 'type',
	type_description => 'type_description',
	message          => 'message',
	file             => 'file',
	file_abspath     => 'file_abspath',
	file_msgpath     => 'file_msgpath',
	line             => 'line',
	near             => 'near',
	diagnostics      => 'diagnostics',
	at               => 'at',
};

sub new {
	my ( $class, $self ) = @_;
	bless $self, ref $class || $class;
	return $self;
}

sub stack {
	my $self = shift;
	return $self->{stack} ? @{ $self->{stack} } : undef;

}

1;

__END__