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   477 use strict;
  57         57  
  57         1248  
3 57     57   153 use warnings;
  57         88  
  57         2102  
4              
5             our $VERSION = '0.000043';
6             $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
7              
8 57     57   173 use base 'Test2::Event';
  57         51  
  57         3215  
9 57     57   217 use Test2::Util::HashBase qw/message/;
  57         64  
  57         264  
10              
11             sub init {
12 82 100   82 0 315 $_[0]->{+MESSAGE} = 'undef' unless defined $_[0]->{+MESSAGE};
13             }
14              
15 2     2 1 10 sub summary { $_[0]->{+MESSAGE} }
16              
17 1     1 1 3 sub diagnostics { 1 }
18              
19             1;
20              
21             __END__