File Coverage

blib/lib/Test/Stream/Hub/Subtest.pm
Criterion Covered Total %
statement 24 24 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 1 2 50.0
total 34 35 97.1


line stmt bran cond sub pod time code
1             package Test::Stream::Hub::Subtest;
2 32     32   443 use strict;
  32         39  
  32         725  
3 32     32   93 use warnings;
  32         38  
  32         628  
4              
5 32     32   92 use base 'Test::Stream::Hub';
  32         36  
  32         2094  
6 32     32   119 use Test::Stream::HashBase accessors => [qw/nested bailed_out exit_code/];
  32         34  
  32         177  
7              
8             sub process {
9 1566     1566 1 1264 my $self = shift;
10 1566         1579 my ($e) = @_;
11 1566         3010 $e->set_nested($self->nested);
12 1566 100       9984 $self->set_bailed_out($e) if $e->isa('Test::Stream::Event::Bail');
13 1566         2839 $self->SUPER::process($e);
14             }
15              
16             sub terminate {
17 6     6 0 31 my $self = shift;
18 6         8 my ($code) = @_;
19 6         18 $self->set_exit_code($code);
20 32     32   150 no warnings 'exiting';
  32         51  
  32         1612  
21 6         60 last TS_SUBTEST_WRAPPER;
22             }
23              
24             1;
25              
26             __END__