File Coverage

blib/lib/ExtUtils/Builder/Action/Command.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	12	16	75.0
condition	2	4	50.0
subroutine	7	7	100.0
pod	3	3	100.0
total	58	64	90.6

package ExtUtils::Builder::Action::Command;
$ExtUtils::Builder::Action::Command::VERSION = '0.020';
use strict;
use warnings;

use parent 'ExtUtils::Builder::Action::Primitive';

sub _preference_map {
	return {
		command => 3,
		execute => 2,
		code    => 1,
		flatten => 0,
	};
}

sub to_code {
	my ($self, %args) = @_;
	require Data::Dumper;
	if (ref $self->{command}) {
		my $serialized = Data::Dumper->new([$self->{command}])->Terse(1)->Indent(0)->Dump;
		$serialized =~ s/ \A \[ (.*?) \] \z /$1/xms;
		return qq{system($serialized) and die "Could not run command " . join ' ', $serialized};
	} else {
		my $serialized = Data::Dumper->new([$self->{command}])->Terse(1)->Indent(0)->Dump;
		return qq{system($serialized) and die "Could not run command $serialized"};
	}
}

sub to_command {
	my $self = shift;
	return ref $self->{command} ? [ @{ $self->{command} } ] : $self->{command};
}

my $quote = $^O eq 'MSWin32' ? do { require Win32::ShellQuote; \&Win32::ShellQuote::quote_system_list } : sub { @_ };
sub execute {
	my ($self, %opts) = @_;
	if (ref $self->{command}) {
		my @command = @{ $self->{command} };
		my $message = join ' ', map { my $arg = $_; $arg =~ s/ (?= ['#] ) /\\/gx ? "'$arg'" : $arg } @command;
		print "$message\n" if not $opts{quiet};
		system($quote->(@command)) and die "Could not run command @command" if not $opts{dry_run};
	} else {
		my $command = $self->{command};
		print "$command\n" if not $opts{quiet};
		system($command) and die "Could not run command $command" if not $opts{dry_run};
	}
	return;
}

1;

#ABSTRACT: An action object for external commands

__END__