view release on metacpan or  search on metacpan

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

package App::MyProve;

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;