view release on metacpan or  search on metacpan

lib/App/VW/Install.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
package App::VW::Install;
use strict;
use warnings;
use base 'https://metacpan.org/pod/App::VW::Command">App::VW::Command';
use File::Copy;
use File::ShareDir 'module_dir';
 
sub options {
  my ($class) = @_;
  (
    $class->SUPER::options,
  );
}
 
our %systems;
$systems{debian} = {};
$systems{ubuntu} = $systems{debian};
$systems{gentoo} = undef;
$systems{centos} = undef;
 
sub post_installation_message {

lib/App/VW/Setup.pm  view on Meta::CPAN

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
use Cwd;
use base 'https://metacpan.org/pod/App::VW::Command">App::VW::Command';
use File::ShareDir 'module_dir';
use YAML 'DumpFile';
 
my $config = App::VW->config;
 
sub options {
  my ($class) = @_;
  (
    $class->SUPER::options,
    'port|p=i'     => 'port',
    'size|s=s'     => 'size',
    'modules|m=s@' => 'modules',
  );
}
 
sub run {
  my ($self, $app) = @_;
 
  die("Please specify an App to start.\n")