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   688 use strict;
  32         69  
  32         807  
3 32     32   168 use warnings;
  32         61  
  32         816  
4              
5 32     32   164 use Test::Stream::Hub;
  32         64  
  32         1094  
6             use Test::Stream::HashBase(
7 32         239 base => 'Test::Stream::Hub',
8             accessors => [qw/nested bailed_out exit_code/],
9 32     32   168 );
  32         59  
10              
11             sub process {
12 1556     1556 1 2144 my $self = shift;
13 1556         2091 my ($e) = @_;
14 1556         4555 $e->set_nested($self->nested);
15 1556 100       14917 $self->set_bailed_out($e) if $e->isa('Test::Stream::Event::Bail');
16 1556         4575 $self->SUPER::process($e);
17             }
18              
19             sub terminate {
20 6     6 0 42 my $self = shift;
21 6         11 my ($code) = @_;
22 6         25 $self->set_exit_code($code);
23 32     32   190 no warnings 'exiting';
  32         70  
  32         1964  
24 6         65 last TS_SUBTEST_WRAPPER;
25             }
26              
27             1;
28              
29             __END__