File Coverage

blib/lib/Duadua/CLI.pm

Criterion	Covered	Total	%
statement	50	54	92.5
branch	8	10	80.0
condition	4	4	100.0
subroutine	13	15	86.6
pod	4	4	100.0
total	79	87	90.8

package Duadua::CLI;
use strict;
use warnings;
use Duadua;
use Getopt::Long qw/GetOptionsFromArray/;
use JSON qw/encode_json/;

sub new {
    my $class = shift;

    return bless {
        _d   => Duadua->new('', { version => 1 }),
        _opt => $class->_get_opt(@_),
    }, $class;
}

sub d { shift->{_d} }

sub opt { $_[0]->{_opt}{$_[1]} }

sub run {
    my ($self) = @_;

    my @results;

    if (my $ua_list = $self->opt('ua_list')) {
        for my $ua (@{$ua_list}) {
            push @results, $self->_parse($ua);
        }
    }

    if ($self->_is_opened_stdin) {
        while (my $ua = ) {
            chomp $ua;
            push @results, $self->_parse($ua);
        }
    }

    if (scalar @results == 0) {
        _show_usage(1);
    }
    else {
        print encode_json(scalar @results == 1 ? $results[0] : \@results);
    }
}

sub _is_opened_stdin { -p STDIN }

sub _parse {
    my ($self, $ua) = @_;

    $ua =~ s!^"!!g;
    $ua =~ s!"$!!g;

    my $r = $self->d->reparse($ua);

    my $v = {
        ua      => $r->ua,
        name    => $r->name,
        version => $r->version || '-',
    };

    for my $k (qw/
        is_bot
        is_ios
        is_android
        is_linux
        is_windows
        is_chromeos
    /) {
        $v->{$k} = $r->$k || 0;
    }

    return $v;
}

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

    my $opt = {};

    GetOptionsFromArray(
        \@argv,
        'help'    => sub {
            $class->_show_usage(1);
        },
        'version' => sub {
            print "$0 $Duadua::VERSION\n";
            exit 1;
        },
    );

    if (scalar @argv > 0) {
        push @{$opt->{ua_list}}, @argv;
    }

    return $opt;
}

sub _show_usage {
    my ($class, $exitval) = @_;

    require Pod::Usage;
    Pod::Usage::pod2usage(-exitval => $exitval);
}

1;

__END__