File Coverage

blib/lib/Test2/Event/Output.pm
Criterion Covered Total %
statement 16 21 76.1
branch 2 4 50.0
condition 0 2 0.0
subroutine 6 8 75.0
pod 1 3 33.3
total 25 38 65.7


line stmt bran cond sub pod time code
1             package Test2::Event::Output;
2 4     4   2226 use strict;
  4         11  
  4         116  
3 4     4   21 use warnings;
  4         9  
  4         192  
4              
5             our $VERSION = '0.000008';
6              
7 4     4   22 use Carp qw/croak/;
  4         9  
  4         276  
8              
9 4     4   25 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
  4         117  
10 4     4   19 use Test2::Util::HashBase qw/-stream_name -message -diagnostics/;
  4         8  
  4         31  
11              
12             sub init {
13             croak "'stream_name' is required"
14 6 50   6 0 370 unless $_[0]->{+STREAM_NAME};
15              
16 6 50       35 $_[0]->{+MESSAGE} = 'undef' unless defined $_[0]->{+MESSAGE};
17             }
18              
19 0     0 1   sub summary { $_[0]->{+MESSAGE} }
20              
21             # This will automatically be used when Facets are made stable.
22             sub facet_data {
23 0     0 0   my $self = shift;
24              
25 0           my $out = $self->common_facet_data;
26              
27             $out->{info} = [
28             {
29             tag => $self->{+STREAM_NAME},
30             details => $self->{+MESSAGE},
31 0   0       debug => $self->{+DIAGNOSTICS} || 0,
32             }
33             ];
34              
35 0           return $out;
36             }
37              
38             1;
39              
40             __END__