File Coverage

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

Criterion	Covered	Total	%
statement	21	23	91.3
branch	4	8	50.0
condition	4	4	100.0
subroutine	7	7	100.0
pod	4	4	100.0
total	40	46	86.9

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

# ABSTRACT: ARC Enemy result object for WWW::ARDB

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

our $VERSION = '0.002';


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


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


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


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


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


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


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},
        name         => $data->{name},
        icon         => $data->{icon},
        image        => $data->{image},
        drop_table   => $data->{dropTable} // [],
        related_maps => $data->{relatedMaps} // [],
        updated_at   => $data->{updatedAt},
        _raw         => $data,
    );
}


sub icon_url {
    my $self = shift;
    return unless $self->icon;
    return 'https://ardb.app' . $self->icon if $self->icon =~ m{^/};
    return $self->icon;
}


sub image_url {
    my $self = shift;
    return unless $self->image;
    return 'https://ardb.app' . $self->image if $self->image =~ m{^/};
    return $self->image;
}


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


1;

__END__