File Coverage

blib/lib/App/LLEvalBot/CLI.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package App::LLEvalBot::CLI;
use strict;
use warnings;
use utf8;

use Getopt::Long 2.39;
use Pod::Usage qw/pod2usage/;

use App::LLEvalBot;

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

    my ($opt, $rest_argv) = $class->parse_options(@argv);
    my $bot = App::LLEvalBot->new(config => $opt);
    $bot->run;
}

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};
    $opt{enable_ssl}    = delete $opt{'enable-ssl'} if exists $opt{'enable-ssl'};
    $opt{nickname}      //= 'lleval_bot';

    (\%opt, \@argv);
}

1;

__END__