File Coverage

blib/lib/Win32/Getppid.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	19	22	86.3

package Win32::Getppid;

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

BEGIN {

# ABSTRACT: Implementation of getppid() for windows
our $VERSION = '0.06'; # VERSION

  if($^O =~ /^(cygwin|MSWin32|msys)$/)
  {
    require XSLoader;
    XSLoader::load('Win32::Getppid', $Win32::Getppid::VERSION);
  }

}

our @EXPORT;
our @EXPORT_OK = qw( getppid );

if($^O eq 'MSWin32')
{
  @EXPORT = qw( getppid );
}
elsif($^O =~ /^(cygwin|msys)$/)
{
  # Allow import, but not by default
  # on cygwin/msys
}
else
{
  if($] >= 5.016)
  {
    *getppid = \&CORE::getppid;
  }
  else
  {
    *getppid = sub {
      package
        Win32::Getppid::sandbox;
      getppid();
    };
  }
}


1;

__END__