File Coverage

inc/Test2/Event/Exception.pm
Criterion Covered Total %
statement 11 16 68.7
branch n/a
condition n/a
subroutine 4 7 57.1
pod 3 3 100.0
total 18 26 69.2


line stmt bran cond sub pod time code
1             #line 1
2 1     1   4 package Test2::Event::Exception;
  1         1  
  1         20  
3 1     1   3 use strict;
  1         1  
  1         36  
4             use warnings;
5              
6             our $VERSION = '1.302073';
7              
8 1     1   4  
  1         31  
9 1     1   11 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
  1         1  
  1         4  
10             use Test2::Util::HashBase qw{error};
11 0     0 1    
12             sub causes_fail { 1 }
13              
14 0     0 1   sub summary {
15 0           my $self = shift;
16 0           chomp(my $msg = "Exception: " . $self->{+ERROR});
17             return $msg;
18             }
19 0     0 1    
20             sub diagnostics { 1 }
21              
22             1;
23              
24             __END__