File Coverage

blib/lib/Test2/Event/Warning.pm
Criterion Covered Total %
statement 16 17 94.1
branch 2 4 50.0
condition n/a
subroutine 7 8 87.5
pod 3 4 75.0
total 28 33 84.8


line stmt bran cond sub pod time code
1             package Test2::Event::Warning;
2              
3 3     3   20 use strict;
  3         6  
  3         86  
4 3     3   14 use warnings;
  3         6  
  3         128  
5              
6             our $VERSION = '0.09';
7              
8 3     3   928 use parent 'Test2::Event';
  3         645  
  3         20  
9              
10 3     3   213 use Test2::Util::HashBase qw( causes_fail warning );
  3         7  
  3         24  
11              
12             sub init {
13 2 50   2 0 166 $_[0]->{ +CAUSES_FAIL } = 1 unless exists $_[0]->{ +CAUSES_FAIL };
14 2 50       8 $_[0]->{ +WARNING } = 'undef' unless defined $_[0]->{ +WARNING };
15             }
16              
17 12     12 1 1573 sub summary { $_[0]->{ +WARNING } }
18              
19 8     8 1 7893 sub increments_count {1}
20 0     0 1   sub diagnostics {1}
21              
22             1;
23              
24             # ABSTRACT: A Test2 event for warnings
25              
26             __END__