view release on metacpan or  search on metacpan

lib/OrePAN2/Server/CLI.pm  view on Meta::CPAN

use Plack::Builder;
use Plack::Runner;

use OrePAN2::Server;

use Getopt::Long qw/:config posix_default no_ignore_case bundling auto_help pass_through/;
use Pod::Usage   qw/pod2usage/;

sub new {
    my $class = shift;
    local @ARGV = @_;

    my %opt = ('compress-index' => 1);
    GetOptions(\%opt, qw/
        delivery-dir=s
        delivery-path=s
        authenquery-path=s
        compress-index!
    /) or pod2usage(1);

    $opt{delivery_dir}     = delete $opt{'delivery-dir'}     || 'orepan';