view release on metacpan or  search on metacpan

lib/IPC/Manager/Test.pm  view on Meta::CPAN

        if (!$ok) {
            push @errors => "iter $i: $err";
        }
        elsif (!ref($resp) || ($resp->{response}{n} // -1) != $i) {
            push @errors => "iter $i: bad response: " . (ref($resp) ? $resp->{response}{n} // 'undef' : $resp);
        }

        $handle = undef;
    }

    is(\@errors, [], "no peer-gone exceptions across $iters exits-after-response iterations");
}

sub test_multiple_requests {
    my $handle = ipcm_service(
        'multi_svc',
        class          => 'IPC::Manager::Service',
        handle_request => sub {
            my ($self, $req, $msg) = @_;
            return "reply_$req->{request}";
        },