File Coverage

blib/lib/Test2/Event/ParseError.pm
Criterion Covered Total %
statement 14 16 87.5
branch 1 2 50.0
condition n/a
subroutine 6 8 75.0
pod 3 4 75.0
total 24 30 80.0


line stmt bran cond sub pod time code
1             package Test2::Event::ParseError;
2 29     29   1530 use strict;
  29         51  
  29         635  
3 29     29   87 use warnings;
  29         48  
  29         1246  
4              
5             our $VERSION = '0.000012';
6              
7 29     29   8933 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
  29         45953  
8 29     29   132 use Test2::Util::HashBase qw/parse_error/;
  29         30  
  29         100  
9              
10             sub init {
11 14     14 0 106 my $self = shift;
12 14 50       53 defined $self->{+PARSE_ERROR} or $self->trace->throw("'parse_error' is a required attribute");
13             }
14              
15 0     0 1 0 sub causes_fail { 1 }
16 2     2 1 8 sub diagnostics { 1 }
17              
18 0     0 1   sub summary { 'Error parsing output from a test file: ' . $_[0]->{+PARSE_ERROR} }
19              
20             1;
21              
22             __END__