File Coverage

blib/lib/Check/Fork.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	10	10	100.0
condition	7	8	87.5
subroutine	6	6	100.0
pod	1	1	100.0
total	54	55	98.1

package Check::Fork;

use base qw(Exporter);
use strict;
use warnings;

use Config;
use Readonly;

our $ERROR_MESSAGE;
Readonly::Array our @EXPORT_OK => qw(check_fork $ERROR_MESSAGE);

our $VERSION = 0.02;

sub check_fork {
	my ($config_hr, $os) = @_;

	$config_hr ||= \%Config;
	$os ||= $^O;

	if ($config_hr->{'d_fork'}) {
		return 1;
	} elsif ($config_hr->{'d_pseudofork'}) {
		return 1;
	} elsif ($os eq 'MSWin32' || $os eq 'NetWare') {
		if (! $config_hr->{'useithreads'}) {
			$ERROR_MESSAGE = "$os: No interpreter-based threading implementation.";
			return 0;
		}
		if ($config_hr->{'ccflags'} !~ /-DPERL_IMPLICIT_SYS/) {
			$ERROR_MESSAGE = "$os: No PERL_IMPLICIT_SYS ccflags set.";
			return 0;
		}
		return 1;
	}
	$ERROR_MESSAGE = 'No fork() routine available.';

	return 0;
}

1;

__END__