view release on metacpan or  search on metacpan

lib/App/CPANRepo.pm  view on Meta::CPAN

    }
}

sub parse_options {
    my ($class, @argv) = @_;

    my $parser = Getopt::Long::Parser->new(
        config => [qw/posix_default no_ignore_case bundling pass_through auto_help/],
    );

    local @ARGV = @argv;
    $parser->getoptions(\my %opt) or Pod::Usage::pod2usage(1);
    @argv = @ARGV;

    Pod::Usage::pod2usage(1) unless @argv;
    (\%opt, \@argv);
}

1;
__END__