File Coverage

blib/lib/Test/Stream/Hub/Interceptor.pm
Criterion Covered Total %
statement 21 24 87.5
branch 1 2 50.0
condition 3 6 50.0
subroutine 7 7 100.0
pod 1 2 50.0
total 33 41 80.4


line stmt bran cond sub pod time code
1             package Test::Stream::Hub::Interceptor;
2 42     42   481 use strict;
  42         55  
  42         931  
3 42     42   135 use warnings;
  42         47  
  42         754  
4              
5 42     42   14414 use Test::Stream::Hub::Interceptor::Terminator();
  42         64  
  42         632  
6              
7 42     42   140 use base 'Test::Stream::Hub';
  42         51  
  42         3119  
8 42     42   168 use Test::Stream::HashBase;
  42         45  
  42         212  
9              
10             sub inherit {
11 139     139 1 139 my $self = shift;
12 139         181 my ($from, %params) = @_;
13              
14 139 50 66     820 if ($from->{+IPC} && !$self->{+IPC} && !exists($params{ipc})) {
      33        
15 0         0 my $ipc = $from->{+IPC};
16 0         0 $self->{+IPC} = $ipc;
17 0         0 $ipc->add_hub($self->{+HID});
18             }
19             }
20              
21             sub terminate {
22 19     19 0 29 my $self = shift;
23 19         26 my ($code) = @_;
24 19         189 die bless(\$code, 'Test::Stream::Hub::Interceptor::Terminator');
25             }
26              
27             1;
28              
29             __END__