File Coverage

blib/lib/Test/Stream/Plugin/CanFork.pm

Criterion	Covered	Total	%
statement	16	22	72.7
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	22	30	73.3

package Test::Stream::Plugin::CanFork;
use strict;
use warnings;

use Test::Stream::Capabilities qw/CAN_FORK CAN_REALLY_FORK/;

use Test::Stream::Plugin qw/import/;

sub load_ts_plugin {
    my $class = shift;
    my ($caller, %params) = @_;

    if ($params{real}) {
        return if CAN_REALLY_FORK;
    }
    else {
        return if CAN_FORK;
    }

    require Test::Stream::Context;
    my $ctx = Test::Stream::Context::context();
    $ctx->plan(0, "SKIP", "This test requires a perl capable of forking.");
    $ctx->release;
    exit 0;
}

1;

__END__