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 2     2   14 use strict;
  2         3  
  2         56  
4 2     2   10 use warnings;
  2         4  
  2         76  
5              
6             our $VERSION = '0.07';
7              
8 2     2   825 use parent 'Test2::Event';
  2         580  
  2         13  
9              
10 2     2   133 use Test2::Util::HashBase qw( causes_fail warning );
  2         4  
  2         11  
11              
12             sub init {
13 2 50   2 0 157 $_[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 1335 sub summary { $_[0]->{ +WARNING } }
18              
19 8     8 1 7364 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__