view release on metacpan or  search on metacpan

lib/Catalyst/Helper/InitScript/FreeBSD.pm  view on Meta::CPAN

        use_socket => 1,
    };
    $vars->{pidfile} = "/var/run/$vars->{app}.pid";
    $vars->{listen}  = "/var/run/$vars->{app}.sockets";
    my $output  = canonpath(catfile($vars->{base}, "$vars->{app}.sh.sample"));

    # parse args
    {
        no warnings 'uninitialized';
        my $opts = {};
        local @ARGV = @args;
        my $ret = GetOptions(
            'help|?'      => \$opts->{help},
            'user=s'      => \$opts->{user},
            'group=s'     => \$opts->{group},
            'pidfile|p=s' => \$opts->{pidfile},
            'listen|l=s'  => \$opts->{listen},
            'nproc|n=i'   => \$opts->{nproc},
            'mysql'       => \$opts->{mysql},
            'postgresql'  => \$opts->{postgresql},
        );