File Coverage

blib/lib/WebService/Pokemon/Role/APIResource.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	32	35	91.4

package WebService::Pokemon::Role::APIResource;

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

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

our $VERSION = '0.09';


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}) {
        if (!$self->can($arg)) {
            $self->meta->add_attribute($arg => ( is => 'rw'));
            $self->$arg($self->response->{$arg});
        }
    }

    return $self;
}


1;
__END__