Update to current Perl

lib/WGDev/Command/Run.pm

@@ -0,0 +1,40 @@
+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
+