view release on metacpan or  search on metacpan

lib/App/LLEvalBot/CLI.pm  view on Meta::CPAN

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

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

    $parser->getoptionsfromarray(\@argv, \my %opt, qw/
        host=s
        port=s
        password=s
        channels=s@
        nickname=s
        enable-ssl
    /) or pod2usage(1);

    my @required_options = qw/host channels/;
    pod2usage(2) if grep {!exists $opt{$_}} @required_options;

    $opt{channels}      = [ map { split /,/, $_ } @{ $opt{channels} } ];
    $opt{join_channels} = delete $opt{channels};

script/lleval-bot.pl  view on Meta::CPAN

    % lleval-bot.pl --channels=test --host=irc.example.com [opt]

=head2 OPTIONS

=over

=item nickname (Default: lleval_bot)

=item port

=item password

=item enable-ssl

=back

=head1 DESCRIPTION

App::LLEvalBot is IRC bot for LLeval.