File Coverage

blib/lib/Test2/Event/Diag.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 2 3 66.6
total 26 27 96.3


line stmt bran cond sub pod time code
1             package Test2::Event::Diag;
2 57     57   494 use strict;
  57         54  
  57         1273  
3 57     57   169 use warnings;
  57         56  
  57         1760  
4              
5             our $VERSION = '0.000044';
6              
7 57     57   176 use base 'Test2::Event';
  57         53  
  57         3496  
8 57     57   229 use Test2::Util::HashBase qw/message/;
  57         55  
  57         256  
9              
10             sub init {
11 82 100   82 0 204 $_[0]->{+MESSAGE} = 'undef' unless defined $_[0]->{+MESSAGE};
12             }
13              
14 2     2 1 10 sub summary { $_[0]->{+MESSAGE} }
15              
16 1     1 1 3 sub diagnostics { 1 }
17              
18             1;
19              
20             __END__