File Coverage

blib/lib/WWW/ARDB/CLI.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	7	8	87.5
pod	1	2	50.0
total	48	55	87.2

package WWW::ARDB::CLI;
our $AUTHORITY = 'cpan:GETTY';

# ABSTRACT: Command-line interface for WWW::ARDB

use Moo;
use MooX::Cmd;
use WWW::ARDB;
use JSON::MaybeXS qw( encode_json );
use Getopt::Long qw(:config pass_through);

our $VERSION = '0.002';


has debug => (
    is      => 'ro',
    default => sub { $ENV{WWW_ARDB_DEBUG} // 0 },
);


has no_cache => (
    is      => 'ro',
    default => sub { $ENV{WWW_ARDB_NO_CACHE} // 0 },
);


has json => (
    is      => 'ro',
    default => sub { $ENV{WWW_ARDB_JSON} // 0 },
);


around BUILDARGS => sub {
    my ($orig, $class, @args) = @_;

    my ($debug, $no_cache, $json);
    GetOptions(
        'debug|d'  => \$debug,
        'no-cache' => \$no_cache,
        'json|j'   => \$json,
    );

    my $result = $class->$orig(@args);
    $result->{debug}    = $debug    if $debug;
    $result->{no_cache} = $no_cache if $no_cache;
    $result->{json}     = $json     if $json;

    return $result;
};

has api => (
    is      => 'lazy',
    builder => '_build_api',
);


sub _build_api {
    my $self = shift;
    return WWW::ARDB->new(
        debug     => $self->debug,
        use_cache => !$self->no_cache,
    );
}

sub execute {
    my ($self, $args, $chain) = @_;

    if (!@$chain || @$chain == 1) {
        print "ardb - ARC Raiders Database CLI\n\n";
        print "Usage: ardb  [options]\n\n";
        print "Commands:\n";
        print "  items     List all items\n";
        print "  item      Show item details\n";
        print "  quests    List all quests\n";
        print "  quest     Show quest details\n";
        print "  enemies   List all ARC enemies\n";
        print "  enemy     Show ARC enemy details\n";
        print "\nGlobal Options:\n";
        print "  -d, --debug     Enable debug output\n";
        print "  -j, --json      Output as JSON\n";
        print "  --no-cache      Disable caching\n";
        print "\nExamples:\n";
        print "  ardb items --search guitar\n";
        print "  ardb item acoustic_guitar\n";
        print "  ardb enemies\n";
        print "  ardb enemy wasp --json\n";
        print "\nData provided by ardb.app\n";
    }
}

sub output_json {
    my ($self, $data) = @_;
    print encode_json($data) . "\n";
}


1;

__END__