File Coverage

blib/lib/Test2/IPC/Driver.pm

Criterion	Covered	Total	%
statement	32	33	96.9
branch	5	6	83.3
condition			n/a
subroutine	10	11	90.9
pod	3	3	100.0
total	50	53	94.3

package Test2::IPC::Driver;
use strict;
use warnings;

our $VERSION = '0.000042';

use Carp qw/confess longmess/;
use Test2::Util::HashBase qw{no_fatal};

use Test2::API qw/test2_ipc_add_driver/;

my %ADDED;
sub import {
    my $class = shift;
    return if $class eq __PACKAGE__;
    return if $ADDED{$class}++;
    test2_ipc_add_driver($class);
}

sub use_shm { 0 }

for my $meth (qw/send cull add_hub drop_hub waiting is_viable/) {
    no strict 'refs';
    *$meth = sub {
        my $thing = shift;
        confess "'$thing' did not define the required method '$meth'."
    };
}

# Print the error and call exit. We are not using 'die' cause this is a
# catastophic error that should never be caught. If we get here it
# means some serious shit has happened in a child process, the only way
# to inform the parent may be to exit false.

sub abort {
    my $self = shift;
    chomp(my ($msg) = @_);
    print STDERR "IPC Fatal Error: $msg\n";
    print STDOUT "not ok - IPC Fatal Error\n";

    CORE::exit(255) unless $self->no_fatal;
}

sub abort_trace {
    my $self = shift;
    my ($msg) = @_;
    $self->abort(longmess($msg));
}

1;

__END__