| 123456789101112131415161718192021222324 |
- #!/usr/bin/env perl
- package App::Prove::Remote::rprove;
- use strict;
- use warnings;
- use experimental 'signatures';
- use App::Prove::Remote::Connector ();
- use Getopt::Long ();
- exit run() unless caller();
- sub run {
- my ( $host, $verbosity, @tests ) = ('', '');
- Getopt::Long::GetOptions(
- 'host|h' => \$host,
- 'verbosity' => \$verbosity,
- );
- my $conn = App::Prove::Remote::Connector->new($host, $verbosity);
- return 0;
- }
- 1;
|