File Coverage

blib/lib/IPC/Run/Fused.pm

Criterion	Covered	Total	%
statement	16	29	55.1
branch	1	4	25.0
condition			n/a
subroutine	6	8	75.0
pod			n/a
total	23	41	56.1

use strict;
use warnings;

package IPC::Run::Fused;
BEGIN {
  $IPC::Run::Fused::AUTHORITY = 'cpan:KENTNL';
}
{
  $IPC::Run::Fused::VERSION = '0.04000100';
}
use 5.008000;

# ABSTRACT: Capture Stdout/Stderr simultaneously as if it were one stream, painlessly.
#



use Sub::Exporter -setup => { exports => [ run_fused => \&_build_run_fused ], };

our %FAIL_CONTEXT;

sub _stringify {
  return 'undef' if not defined $_[0];
  return qq{`$_[0]`};
}

sub _fail {
  my $errors = {
    '$?'  => _stringify($?),
    '$!'  => _stringify($!),
    '$^E' => _stringify($^E),
    '$@'  => _stringify($@),
    ( map { $_ => _stringify( $FAIL_CONTEXT{$_} ) } keys %FAIL_CONTEXT )
  };
  my $message = '';
  $message .= qq{\n} . $_ for @_;
  $message .= sprintf qq{\n\t%s => %s}, $_, $errors->{$_} for sort keys %$errors;
  $message .= qq{\n};
  require Carp;
  @_ = $message;
  goto \&Carp::confess;
}

sub _build_run_fused {
  if ( $^O eq 'MSWin32' ) {
    require IPC::Run::Fused::Win32;
    return \&IPC::Run::Fused::Win32::run_fused;
  }
  require IPC::Run::Fused::POSIX;
  return \&IPC::Run::Fused::POSIX::run_fused;
}
{
  *run_fused = _build_run_fused();
}

1;

__END__