File Coverage

blib/lib/Test2/EventFacet/Info/Table.pm
Criterion Covered Total %
statement 24 24 100.0
branch 1 2 50.0
condition 3 5 60.0
subroutine 7 7 100.0
pod 2 3 66.6
total 37 41 90.2


line stmt bran cond sub pod time code
1             package Test2::EventFacet::Info::Table;
2 1     1   816 use strict;
  1         3  
  1         35  
3 1     1   5 use warnings;
  1         2  
  1         68  
4              
5             our $VERSION = '1.302180';
6              
7 1     1   7 use Carp qw/confess/;
  1         2  
  1         65  
8              
9 1     1   7 use Test2::Util::HashBase qw{-header -rows -collapse -no_collapse -as_string};
  1         2  
  1         8  
10              
11             sub init {
12 2     2 0 4 my $self = shift;
13              
14 2 50 33     10 confess "Table may not be empty" unless ref($self->{+ROWS}) eq 'ARRAY' && @{$self->{+ROWS}};
  2         7  
15              
16 2   100     17 $self->{+AS_STRING} ||= '';
17             }
18              
19 2     2 1 3 sub as_hash { my $out = +{%{$_[0]}}; delete $out->{as_string}; $out }
  2         7  
  2         16  
  2         4  
20              
21             sub info_args {
22 2     2 1 3 my $self = shift;
23              
24 2         5 my $hash = $self->as_hash;
25 2         7 my $desc = $self->as_string;
26              
27 2         22 return (table => $hash, details => $desc);
28             }
29              
30             1;
31              
32             __END__