File Coverage

inc/Test2/Hub/Interceptor.pm
Criterion Covered Total %
statement 17 29 58.6
branch 0 2 0.0
condition 0 6 0.0
subroutine 6 8 75.0
pod 0 2 0.0
total 23 47 48.9


line stmt bran cond sub pod time code
1             #line 1
2 1     1   5 package Test2::Hub::Interceptor;
  1         1  
  1         19  
3 1     1   4 use strict;
  1         1  
  1         37  
4             use warnings;
5              
6             our $VERSION = '1.302073';
7              
8 1     1   349  
  1         2  
  1         27  
9             use Test2::Hub::Interceptor::Terminator();
10 1     1   4  
  1         30  
11 1     1   4 BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
  1         1  
  1         4  
12             use Test2::Util::HashBase;
13              
14 0     0 0   sub inherit {
15 0           my $self = shift;
16             my ($from, %params) = @_;
17 0 0 0        
      0        
18 0           if ($from->{+IPC} && !$self->{+IPC} && !exists($params{ipc})) {
19 0           my $ipc = $from->{+IPC};
20 0           $self->{+IPC} = $ipc;
21             $ipc->add_hub($self->{+HID});
22             }
23             }
24              
25 0     0 0   sub terminate {
26 0           my $self = shift;
27             my ($code) = @_;
28 0            
29 1     1   6 eval {
  1         1  
  1         67  
30 0           no warnings 'exiting';
31             last T2_SUBTEST_WRAPPER;
32 0           };
33             my $err = $@;
34              
35 0           # Fallback
36             die bless(\$err, 'Test2::Hub::Interceptor::Terminator');
37             }
38              
39             1;
40              
41             __END__