view release on metacpan or  search on metacpan

lib/MySQL/Warmer/CLI.pm  view on Meta::CPAN

    my ($opt, ) = $class->parse_options(@argv);
    MySQL::Warmer->new($opt)->run;
}

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

    my $parser = Getopt::Long::Parser->new(
        config => [qw/posix_default no_ignore_case bundling permute pass_through auto_help/],
    );
    local @ARGV = @argv;
    $parser->getoptions(\my %opt, qw/
        host|h=s
        user|u=s
        password|p:s
        port|P=i
        socket|S=s
        dry-run
    /) or pod2usage(1);

    if (exists $opt{password} && $opt{password} eq '') {