File Coverage

blib/lib/Banal/Utils/General.pm

Criterion	Covered	Total	%
statement	9	35	25.7
branch	0	24	0.0
condition	0	12	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	80	18.7

#===============================================
package Banal::Utils::General;

use utf8;
require Exporter;
no warnings;

use Data::Dumper;

@ISA = qw(Exporter);
@EXPORT_OK = qw( run_cmd run_perl debug_dump_vars);


##############################################################################"
# Utility functions
##############################################################################"

#-------------------------------------------------------------
sub run_cmd {
	my ($opts, $cmd) 	= @_;
	my $verbose 		= $opts->{verbose} || $opts->{debug};
	my $dryrun			= $opts->{dryrun};
	my $prompt			= $dryrun ? 'sys  would >  ' : 'sys  cmd >  ';
	return unless $cmd;

	print $prompt . $cmd . "\n" if $verbose;

	my $output;
	unless ($dryrun) 	{	$output = `$cmd`;													}
	else 				{ 	$output = $dryrun ? 'Command NOT executed (dry-run mode)' : eval($cmd); }

	print "$output\n" if ($output && $verbose > 5);

}

#-------------------------------------------------------------
sub run_perl {
	my ($opts, $cmd) 	= @_;
	my $verbose 		= $opts->{verbose} || $opts->{debug};
	my $dryrun			= $opts->{dryrun};
	my $prompt			= $dryrun ? 'perl would >  ' : 'perl cmd >  ';

	return unless $cmd;

	print $prompt . $cmd . "\n" if $verbose;

	my $output;
	unless ($dryrun) 	{	$output = eval($cmd);													}
	else 				{ 	$output = $dryrun ? 'Command NOT executed (dry-run mode)' : eval($cmd); }

	print "$output\n" if ($output && $verbose > 5);
}

#---------------------------------
sub debug_dump_vars {
		my $msg = shift;

		print STDERR "$msg:DUMP:\n";
		$Data::Dumper::Sortkeys = 1;
		print STDERR Data::Dumper->Dump([@_]);
}

1;


__END__