File Coverage

blib/lib/WWW/MetaForge/ArcRaiders/CLI/Cmd/Quest.pm

Criterion	Covered	Total	%
statement	68	86	79.0
branch	21	40	52.5
condition	7	42	16.6
subroutine	7	7	100.0
pod	0	1	0.0
total	103	176	58.5

package WWW::MetaForge::ArcRaiders::CLI::Cmd::Quest;
our $AUTHORITY = 'cpan:GETTY';
# ABSTRACT: Show details for a single quest
our $VERSION = '0.002';
use Moo;
use MooX::Cmd;
use MooX::Options;
use JSON::MaybeXS;

sub execute {
  my ($self, $args, $chain) = @_;
  my $app = $chain->[0];

  my $quest_id = $args->[0];
  unless ($quest_id) {
    print "Usage: arcraiders quest <id>\n";
    print "Example: arcraiders quest a-bad-feeling\n";
    return;
  }

  # Try fetching by ID first (API supports id= query param)
  my $result = $app->api->quests_paginated(id => $quest_id);
  my $quests = $result->{data};

  # If not found by ID, search all quests
  if (!@$quests) {
    $quests = $app->api->quests_all;
    my ($match) = grep {
      ($_->id && lc($_->id) eq lc($quest_id)) ||
      ($_->name && lc($_->name) eq lc($quest_id))
    } @$quests;
    $quests = $match ? [$match] : [];
  }

  unless (@$quests) {
    print "Quest '$quest_id' not found.\n";
    return;
  }

  my $quest = $quests->[0];

  if ($app->json) {
    print JSON::MaybeXS->new(utf8 => 1, pretty => 1)->encode($quest->_raw);
    return;
  }

  _print_quest_details($quest);
}

sub _print_quest_details {
  my ($quest) = @_;

  print "=" x 60, "\n";
  printf "%s\n", $quest->name // 'Unknown';
  print "=" x 60, "\n";

  _print_field("ID",   $quest->id);
  _print_field("Type", $quest->type);

  if ($quest->description) {
    print "\nDescription:\n";
    my $desc = $quest->description;
    $desc =~ s/(.{1,58})\s/$1\n  /g;  # Word wrap
    print "  $desc\n";
  }

  if ($quest->objectives && @{$quest->objectives}) {
    print "\nObjectives:\n";
    my $i = 1;
    for my $obj (@{$quest->objectives}) {
      printf "  %d. %s\n", $i++, $obj;
    }
  }

  if ($quest->required_items && @{$quest->required_items}) {
    print "\nRequired Items:\n";
    for my $req (@{$quest->required_items}) {
      my $name = $req->{item} // $req->{name} // 'Unknown';
      my $qty  = $req->{quantity} // $req->{amount} // 1;
      printf "  %dx %s\n", $qty, $name;
    }
  }

  my @reward_parts;
  push @reward_parts, $quest->xp_reward . " XP" if $quest->xp_reward;
  push @reward_parts, $quest->reputation_reward . " Rep" if $quest->reputation_reward;

  if (@reward_parts) {
    print "\nRewards:\n";
    print "  ", join(", ", @reward_parts), "\n";
  }

  if ($quest->rewards && @{$quest->rewards}) {
    print "  Item Rewards:\n" unless @reward_parts;
    for my $reward (@{$quest->rewards}) {
      if (ref $reward eq 'HASH') {
        # Handle both formats: {item => "Name"} and {item => {name => "Name"}}
        my $item = $reward->{item};
        my $name = ref $item eq 'HASH' ? $item->{name} : ($item // $reward->{name});
        next unless defined $name;
        my $qty  = $reward->{quantity} // $reward->{amount} // 1;
        printf "    %dx %s\n", $qty, $name;
      }
    }
  }

  if ($quest->prev_quest || $quest->next_quest) {
    print "\nQuest Chain:\n";
    printf "  Previous: %s\n", $quest->prev_quest // '-';
    printf "  Next:     %s\n", $quest->next_quest // '-';
  }

  if ($quest->last_updated) {
    print "\nLast Updated: ", $quest->last_updated, "\n";
  }
}

sub _print_field {
  my ($label, $value) = @_;
  return unless defined $value;
  printf "%-15s %s\n", "$label:", $value;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

WWW::MetaForge::ArcRaiders::CLI::Cmd::Quest - Show details for a single quest

=head1 VERSION

version 0.002

=head1 SYNOPSIS

  # Show quest details by ID
  arcraiders quest a-bad-feeling

  # Show quest details by name
  arcraiders quest "A Bad Feeling"

  # Output as JSON
  arcraiders quest a-bad-feeling --json

=head1 DESCRIPTION

This command displays detailed information for a single quest. It accepts either
a quest ID or quest name as the argument.

The command first attempts to fetch the quest by ID using the API. If not found,
it falls back to searching the complete quest list by matching against both the
ID and name fields (case-insensitive).

Quest details displayed include:

=over 4

=item * Name and ID

=item * Quest type

=item * Description

=item * Objectives list

=item * Required items with quantities

=item * Rewards (XP, reputation, and items)

=item * Quest chain relationships (previous/next quests)

=item * Last updated timestamp

=back

When the C<--json> flag is used, the raw quest data is output as JSON instead
of the formatted display.

=head1 SUPPORT

=head2 Issues

Please report bugs and feature requests on GitHub at
L<https://github.com/Getty/p5-www-metaforge/issues>.

=head2 IRC

You can reach Getty on C<irc.perl.org> for questions and support.

=head1 CONTRIBUTING

Contributions are welcome! Please fork the repository and submit a pull request.

=head1 AUTHOR

Torsten Raudssus <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2026 by Torsten Raudssus.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut