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 54     54   454 use strict;
  54         48  
  54         1170  
3 54     54   157 use warnings;
  54         55  
  54         1688  
4              
5             our $VERSION = '0.000042';
6              
7 54     54   169 use base 'Test2::Event';
  54         47  
  54         2994  
8 54     54   198 use Test2::Util::HashBase qw/message/;
  54         51  
  54         236  
9              
10             sub init {
11 82 100   82 0 207 $_[0]->{+MESSAGE} = 'undef' unless defined $_[0]->{+MESSAGE};
12             }
13              
14 2     2 1 7 sub summary { $_[0]->{+MESSAGE} }
15              
16 1     1 1 3 sub diagnostics { 1 }
17              
18             1;
19              
20             __END__