File Coverage

blib/lib/Test2/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	0	2	0.0
total	32	41	78.0

package Test2::Hub::Interceptor;
use strict;
use warnings;

our $VERSION = '0.000044';

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

use base '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) = @_;
    die bless(\$code, 'Test2::Hub::Interceptor::Terminator');
}

1;

__END__