File Coverage

blib/lib/YVDHOVE/System.pm

Criterion	Covered	Total	%
statement	22	37	59.4
branch	4	12	33.3
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	33	58	56.9

package YVDHOVE::System;

use 5.008000;
use strict;
use warnings;

require Exporter;

# ---------------------------------------------------------------------------------

our @ISA         = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw( execCMD ) ] );
our @EXPORT_OK   = ( @{ $EXPORT_TAGS{'all'} });
our @EXPORT      = ();

our $VERSION     = '1.02';

# ---------------------------------------------------------------------------------

sub execCMD($$$) {
	my ($cmd, $captureoutput, $debug) = @_;

	print qq{execCMD: $cmd\n} if($debug);

	if ($captureoutput) {
		use IO::CaptureOutput qw(capture capture_exec qxx);
		my ($stdout, $stderr) = capture_exec("$cmd");
		my $rc       = ($? >> 8);
		my $signal   = ($? & 127);
		my $coredump = ($? & 128);
		my $rv = ($stderr eq '' && $signal == 0 && $coredump == 0) ? 1 : 0;
		if($debug) {
			print qq{command: $cmd\n};
			print qq{stdout:\n$stdout\n};
			print qq{stderr:\n$stderr\n} if (defined $stderr);
			print qq{rc: $rc\n};
			print qq{signal: $signal\n};
			print qq{coredump: $coredump\n};
			print qq{rv: $rv\n};
		}
		return ($rv, $stdout, $stderr);
	} else {
		my $rc = open(CMD, "$cmd 2>&1 |");
		if(defined $rc) {
			my $stdout = '';
			while() {
				$stdout .= $_;
			}
			close CMD;
			return (1, $stdout, '');
		} else {
			return (0, '', $!);
		}
	}
}

# ---------------------------------------------------------------------------------

1;

# ---------------------------------------------------------------------------------
__END__