File Coverage

blib/lib/Test/Stream/Hub/Interceptor.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	1	2	50.0
condition	3	6	50.0
subroutine	6	6	100.0
pod	1	2	50.0
total	29	37	78.3

package Test::Stream::Hub::Interceptor;
use strict;
use warnings;

use Test::Stream::Hub::Interceptor::Terminator;

require Test::Stream::Hub;
use Test::Stream::HashBase(
    base => 'Test::Stream::Hub',
);

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, 'Test::Stream::Hub::Interceptor::Terminator');
}

1;

__END__