IO::MultiPipe - Allows for error checking on a command involving multiple pipes.

    use IO::MultiPipe;

    my $pipes = IO::MultiPipe->new();

    #This sets the pipe that will be run.
    $pipes->set('sed s/-// | sed s/123/abc/ | sed s/ABC/abc/');
    if ($pipes->{error}){
        print "Error!\n";
    }

    #'123-ABCxyz' through the command set above.
    my $returned=$pipes->run('123-ABCxyz');

    $pipes->set('sed s/-// | sed s/123/abc/ | sed s/ABC/abc/');
    if ($pipes->{error}){
        print "Error!\n";
    }

    $self->{error}=undef;
    $self->{errorString}="";

    perldoc IO::MultiPipe

package IO::MultiPipe;

use IPC::Open3;
use warnings;
#use strict;

our $VERSION = '0.0.0';

sub new{

	my $self={error=>undef, errorString=>'', pipes=>[]};
	bless $self;

	return $self;
}

sub run{
	my $self=$_[0];
	my $data=$_[1];

	$self->errorBlank;

	if (!defined($self->{pipes}[0])) {
		warn('IO-MultiPipe run:3: No command has been set yet');
		$self->{error}=3;
		$self->{errorString}='No command has been set yet.';
	}

	#holds the returned data
	my $returned;

	#runs each one
	my $int=0;
	while (defined($self->{pipes}[$int])) {
		open3(PIPEWRITE, PIPEREAD, PIPEERROR, $self->{pipes}[$int]);
		if ($?) {
			warn('IO-MultiPipe run:4: Failed to open the command "'.$self->{pipes}[$int].'"');
			$self->{error}=4;
			$self->{errorString}='Failed to open the command "'.$self->{pipes}[$int].'"';
			return undef;
		}

		#If the int equals '0' it means this is the first path.
		if ($int eq '0') {
			print PIPEWRITE $data;
		}else {
			print PIPEWRITE $returned;
		}

		#If we don't close it here stuff like sed will fail.
		close PIPEWRITE;

		#reads the returned
		$returned=join('',<PIPEREAD>);

		#reads the error
		my $error=join('',<PIPEERROR>);

		#makes sure the command did error
		#It will always be equal to '' because of the join
		if ($error ne '') {
			warn('IO-MultiPipe run:5: The command "'.$self->{pipes}[$int].'" failed.'.
				 ' The returned error was "'.$error.'"');
			$self->{error}=5;
			$self->{errorString}='The command "'.$self->{pipes}[$int].'" failed.'.
			                     ' The returned error was "'.$error.'"';
			return undef;
		}

		close PIPEREAD;
		close PIPEERROR;

		$int++;
	}

	return $returned;
}

sub set{
	my $self=$_[0];
	my $command=$_[1];

	$self->errorBlank;

	if (!defined($command)) {
		warn('IO-MultiPipe set:1: No command specified');
		$self->{error}=1;
		$self->{errorString}='No command specified.';
		return undef;
	}

	my @commandSplit=split(/\|/, $command);

	#makes sure that all are defined
	my $int=0;
	while (defined($commandSplit[$int])) {
		#this happens when '||' is present in a string
		if (!defined($commandSplit[$int])) {
			warn('IO-MultiPipe set:2: The command "'.$command.'" contains a null section');
			$self->{error}=2;
			$self->{errorString}='The command "'.$command.'" contains a null section.';
			return undef;
		}

		$int++;
	}

	$self->{pipes}=[@commandSplit];

	return 1;
}

#blanks the error flags
sub errorBlank{
        my $self=$_[0];

        $self->{error}=undef;
        $self->{errorString}="";

        return 1;
}

1; # End of IO::MultiPipe