File Coverage

blib/lib/Test2/Event/Note.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 2 3 66.6
total 28 29 96.5


line stmt bran cond sub pod time code
1             package Test2::Event::Note;
2 246     246   2070 use strict;
  246         529  
  246         7346  
3 246     246   1283 use warnings;
  246         494  
  246         13529  
4              
5             our $VERSION = '1.302180';
6              
7              
8 246     246   1422 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
  246         10171  
9 246     246   1739 use Test2::Util::HashBase qw/message/;
  246         527  
  246         1676  
10              
11             sub init {
12 204 100   204 0 922 $_[0]->{+MESSAGE} = 'undef' unless defined $_[0]->{+MESSAGE};
13             }
14              
15 2     2 1 16 sub summary { $_[0]->{+MESSAGE} }
16              
17             sub facet_data {
18 421     421 1 728 my $self = shift;
19              
20 421         1228 my $out = $self->common_facet_data;
21              
22             $out->{info} = [
23             {
24             tag => 'NOTE',
25             debug => 0,
26 421         1722 details => $self->{+MESSAGE},
27             }
28             ];
29              
30 421         1460 return $out;
31             }
32              
33             1;
34              
35             __END__