File Coverage

blib/lib/IPC/ForkPipe.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	10	16	62.5
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	42	50	84.0

package IPC::ForkPipe;

use 5.008008;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw(
    pipe_to_fork pipe_from_fork
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
    pipe_to_fork pipe_from_fork
);

our $VERSION = '0.01';


# Code ganked from http://perldoc.perl.org/perlfork.html

# simulate open(FOO, "|-")
sub pipe_to_fork ($) {
    my $parent = shift;
    pipe my $child, $parent or die;
    my $pid = fork();
    return unless defined $pid;
    if ($pid) {
        close $child;
    }
    else {
        close $parent;
        open(STDIN, "<&=" . fileno($child)) or die;
    }
    return $pid;
}

# simulate open(FOO, "-|")
sub pipe_from_fork ($) {
    my $parent = shift;
    pipe $parent, my $child or die;
    my $pid = fork();
    return unless defined $pid;
    if ($pid) {
        close $child;
    }
    else {
        close $parent;
        open(STDOUT, ">&=" . fileno($child)) or die;
    }
    return $pid;
}

1;
__END__