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   468 use strict;
  57         55  
  57         1269  
3 57     57   154 use warnings;
  57         53  
  57         1650  
4              
5             our $VERSION = '0.000044';
6              
7 57     57   179 use base 'Test2::Event';
  57         60  
  57         3488  
8 57     57   211 use Test2::Util::HashBase qw{error};
  57         62  
  57         271  
9              
10 1     1 1 5 sub causes_fail { 1 }
11              
12             sub summary {
13 1     1 1 1 my $self = shift;
14 1         6 chomp(my $msg = "Exception: " . $self->{+ERROR});
15 1         2 return $msg;
16             }
17              
18 1     1 1 3 sub diagnostics { 1 }
19              
20             1;
21              
22             __END__