view release on metacpan or  search on metacpan

lib/App/MyPerl/Role/Script.pm  view on Meta::CPAN

has perl_options => (is => 'lazy', builder => sub {
  my ($self) = @_;
  [
    "-Mlib::with::preamble=${\join(' ', @{$self->preamble})},lib,t/lib",
    (map "-M$_", @{$self->script_modules}, @{$self->modules})
  ];
});

sub run_if_script {
  return 1 if caller(1);
  shift->new->run;
}

1;

lib/App/MyProve.pm  view on Meta::CPAN

use Moo;
use File::Which;

sub run {
  my $prove = which('prove');
  my $myperl = which('myperl');
  exec($^X, $prove, '--exec', $myperl, @ARGV);
}

sub run_if_script {
  return 1 if caller(1);
  return shift->new->run;
}

1;