rprove 475 B

123456789101112131415161718192021222324
  1. #!/usr/bin/env perl
  2. package App::Prove::Remote::rprove;
  3. use strict;
  4. use warnings;
  5. use experimental 'signatures';
  6. use App::Prove::Remote::Connector ();
  7. use Getopt::Long ();
  8. exit run() unless caller();
  9. sub run {
  10. my ( $host, $verbosity, @tests ) = ('', '');
  11. Getopt::Long::GetOptions(
  12. 'host|h' => \$host,
  13. 'verbosity' => \$verbosity,
  14. );
  15. my $conn = App::Prove::Remote::Connector->new($host, $verbosity);
  16. return 0;
  17. }
  18. 1;