40 lines
765 B
Perl
40 lines
765 B
Perl
package WGDev::Command::Run;
|
|
# ABSTRACT: Run arbitrary shell command
|
|
use strict;
|
|
use warnings;
|
|
use 5.008008;
|
|
|
|
use parent qw(WGDev::Command::Base);
|
|
|
|
sub process {
|
|
my $self = shift;
|
|
$self->wgd->set_environment;
|
|
my @arguments = $self->arguments;
|
|
my $command = shift @arguments;
|
|
my $result = system {$command} $command, @arguments;
|
|
return $result ? 0 : 1;
|
|
}
|
|
|
|
sub parse_params {
|
|
my ( $self, @args ) = @_;
|
|
$self->arguments( \@args );
|
|
return 1;
|
|
}
|
|
|
|
1;
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
wgd run <command>
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Runs an arbitrary command, but sets the C<WEBGUI_CONFIG>, C<WEBGUI_ROOT>, and
|
|
C<PERL5LIB> environment variables first.
|
|
|
|
=head1 OPTIONS
|
|
|
|
Has no options of its own. All options are passed on to specified command.
|
|
|
|
=cut
|
|
|