File Coverage

blib/lib/WWW/ARDB/Result/Quest.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	2	4	50.0
condition	5	8	62.5
subroutine	7	7	100.0
pod	4	4	100.0
total	39	44	88.6

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

# ABSTRACT: Quest result object for WWW::ARDB

use Moo;
use Types::Standard qw( Str Int Num ArrayRef HashRef Maybe );
use namespace::clean;

our $VERSION = '0.002';


has id => (
    is       => 'ro',
    isa      => Str,
    required => 1,
);


has title => (
    is       => 'ro',
    isa      => Str,
    required => 1,
);


has description => (
    is      => 'ro',
    isa     => Maybe[Str],
    default => sub { undef },
);


has maps => (
    is      => 'ro',
    isa     => ArrayRef,
    default => sub { [] },
);


has steps => (
    is      => 'ro',
    isa     => ArrayRef,
    default => sub { [] },
);


has trader => (
    is      => 'ro',
    isa     => Maybe[HashRef],
    default => sub { undef },
);


has required_items => (
    is      => 'ro',
    isa     => ArrayRef,
    default => sub { [] },
);


has rewards => (
    is      => 'ro',
    isa     => ArrayRef,
    default => sub { [] },
);


has xp_reward => (
    is      => 'ro',
    isa     => Maybe[Num],
    default => sub { undef },
);


has updated_at => (
    is      => 'ro',
    isa     => Maybe[Str],
    default => sub { undef },
);


has _raw => (
    is      => 'ro',
    isa     => HashRef,
    default => sub { {} },
);

sub from_hashref {
    my ($class, $data) = @_;

    return $class->new(
        id             => $data->{id},
        title          => $data->{title},
        description    => $data->{description},
        maps           => $data->{maps} // [],
        steps          => $data->{steps} // [],
        trader         => $data->{trader},
        required_items => $data->{requiredItems} // [],
        rewards        => $data->{rewards} // [],
        xp_reward      => $data->{xpReward},
        updated_at     => $data->{updatedAt},
        _raw           => $data,
    );
}


sub trader_name {
    my $self = shift;
    return unless $self->trader;
    return $self->trader->{name};
}


sub trader_type {
    my $self = shift;
    return unless $self->trader;
    return $self->trader->{type};
}


sub map_names {
    my $self = shift;
    return [ map { $_->{name} } @{$self->maps} ];
}


1;

__END__