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   1512 use strict;
  29         29  
  29         596  
3 29     29   85 use warnings;
  29         28  
  29         1204  
4              
5             our $VERSION = '0.000013';
6              
7 29     29   7313 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
  29         46341  
8 29     29   107 use Test2::Util::HashBase qw/parse_error/;
  29         28  
  29         85  
9              
10             sub init {
11 14     14 0 104 my $self = shift;
12 14 50       62 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 9 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__