[scpubgit/System-Introspector.git] / lib / System / Introspector / Util.pm

use strictures 1;

package System::Introspector::Util;
use Exporter 'import';

our @EXPORT_OK = qw(
    handle_from_command
    transform_exceptions
);

sub transform_exceptions (&) {
    my ($code) = @_;
    local $@;
    my $result = eval { $code->() };
    return { error => "$@" }
        if $@;
    return $result;
}

sub handle_from_command {
    my ($command) = @_;
    open my $pipe, '-|', $command
        or die "Unable to read from command '$command': $!\n";
    return $pipe;
}

1;
Commit	Line	Data
f79a227c	1	use strictures 1;
	2
	3	package System::Introspector::Util;
	4	use Exporter 'import';
	5
	6	our @EXPORT_OK = qw(
	7	handle_from_command
	8	transform_exceptions
	9	);
	10
	11	sub transform_exceptions (&) {
	12	my ($code) = @_;
	13	local $@;
	14	my $result = eval { $code->() };
	15	return { error => "$@" }
	16	if $@;
	17	return $result;
	18	}
	19
	20	sub handle_from_command {
	21	my ($command) = @_;
	22	open my $pipe, '-\|', $command
	23	or die "Unable to read from command '$command': $!\n";
	24	return $pipe;
	25	}
	26
	27	1;