File Coverage

blib/lib/Test2/Event/Exception.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 3 3 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Test2::Event::Exception;
2 57     57   473 use strict;
  57         60  
  57         1389  
3 57     57   173 use warnings;
  57         47  
  57         2181  
4              
5             our $VERSION = '0.000043';
6             $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
7              
8 57     57   176 use base 'Test2::Event';
  57         53  
  57         3417  
9 57     57   221 use Test2::Util::HashBase qw{error};
  57         58  
  57         252  
10              
11 1     1 1 10 sub causes_fail { 1 }
12              
13             sub summary {
14 1     1 1 2 my $self = shift;
15 1         5 chomp(my $msg = "Exception: " . $self->{+ERROR});
16 1         4 return $msg;
17             }
18              
19 1     1 1 3 sub diagnostics { 1 }
20              
21             1;
22              
23             __END__