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 6     6   41 package Test2::Event::Exception;
  6         11  
  6         166  
3 6     6   30 use strict;
  6         11  
  6         364  
4             use warnings;
5              
6             our $VERSION = '1.302073';
7              
8 6     6   35  
  6         248  
9 6     6   36 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
  6         11  
  6         49  
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__