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 1
package Test2::Hub::Interceptor;
use strict;
use warnings;

our $VERSION = '1.302073';


use Test2::Hub::Interceptor::Terminator();

BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
use Test2::Util::HashBase;

sub inherit {
    my $self = shift;
    my ($from, %params) = @_;

    if ($from->{+IPC} && !$self->{+IPC} && !exists($params{ipc})) {
        my $ipc = $from->{+IPC};
        $self->{+IPC} = $ipc;
        $ipc->add_hub($self->{+HID});
    }
}

sub terminate {
    my $self = shift;
    my ($code) = @_;

    eval {
        no warnings 'exiting';
        last T2_SUBTEST_WRAPPER;
    };
    my $err = $@;

    # Fallback
    die bless(\$err, 'Test2::Hub::Interceptor::Terminator');
}

1;

__END__