File Coverage

lib/IPC/Run/Fused/POSIX.pm

Criterion	Covered	Total	%
statement	34	39	87.1
branch	8	16	50.0
condition	3	6	50.0
subroutine	7	7	100.0
pod	1	1	100.0
total	53	69	76.8

use 5.008003;
use strict;
use warnings;

package IPC::Run::Fused::POSIX;

our $VERSION = '1.000000';

# ABSTRACT: Implementation of IPC::Run::Fused for POSIX-ish systems.

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

use IO::Handle;

























use Exporter qw(import);
use IPC::Run::Fused qw( _fail );

our @EXPORT_OK = qw( run_fused );

sub run_fused {    ## no critic ( Subroutines::RequireArgUnpacking )

  my ( $read_handle, @params ) = ( \shift @_, @_ );

  my ( $reader, $writer );

  pipe $reader, $writer or _fail('Creating Pipe');

  if ( my $pid = fork ) {
    ${$read_handle} = $reader;
    return $pid;
  }

  open *STDOUT, '>>&=', $writer->fileno or _fail('Assigning to STDOUT');
  open *STDERR, '>>&=', $writer->fileno or _fail('Assigning to STDERR');

  if ( ref $params[0] and 'CODE' eq ref $params[0] ) {
    $params[0]->();
    exit;
  }
  if ( ref $params[0] and 'SCALAR' eq ref $params[0] ) {
    my $command = ${ $params[0] };
    exec $command or _fail('<> failed');
    exit;
  }

  my $program = $params[0];
  ## no critic (ValuesAndExpressions::RequireInterpolationOfMetachars)
  exec {$program} @params or _fail('<> failed');
  exit;
}

1;

__END__