File Coverage

blib/lib/WebService/Pokemon/NamedAPIResource.pm

Criterion	Covered	Total	%
statement	15	34	44.1
branch	0	6	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	47	42.5

package WebService::Pokemon::NamedAPIResource;

use utf8;
use strictures 2;
use namespace::clean;

use Moo;
use Types::Standard qw(HashRef InstanceOf);

our $VERSION = '0.10';

has api => (
    isa => InstanceOf['WebService::Pokemon'],
    is => 'rw',
);

has response => (
    isa => HashRef,
    is  => 'rw',
);

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

    foreach my $arg (keys %{$args}) {
        $self->$arg($args->{$arg}) if (defined $args->{$arg});
    }

    foreach my $arg (keys %{$self->response}) {
        $self->meta->add_attribute(
            $arg => (is => 'rw', lazy => 1, builder => 1)
        );

        my $value = $self->response->{$arg};

        if (ref $value eq 'HASH') {
            $value = WebService::Pokemon::NamedAPIResource->new(
                api => $self->api,
                response => $value
            );
        }

        if (ref $value eq 'ARRAY') {
            my $list;
            foreach my $v (@{$value}) {
                push @{$list},
                    WebService::Pokemon::NamedAPIResource->new(
                        api => $self->api,
                        response => $v
                    );
            }
            $value = $list;
        }

        $self->$arg($value);
    }

    return $self;
}

1;