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 54     54   488 use strict;
  54         50  
  54         1168  
3 54     54   157 use warnings;
  54         43  
  54         1579  
4              
5             our $VERSION = '0.000042';
6              
7 54     54   153 use base 'Test2::Event';
  54         54  
  54         3149  
8 54     54   189 use Test2::Util::HashBase qw{error};
  54         53  
  54         235  
9              
10 1     1 1 8 sub causes_fail { 1 }
11              
12             sub summary {
13 1     1 1 2 my $self = shift;
14 1         5 chomp(my $msg = "Exception: " . $self->{+ERROR});
15 1         4 return $msg;
16             }
17              
18 1     1 1 3 sub diagnostics { 1 }
19              
20             1;
21              
22             __END__