File Coverage

blib/lib/Ark/Model/Adaptor.pm

Criterion	Covered	Total	%
statement	21	27	77.7
branch	3	8	37.5
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	30	44	68.1

package Ark::Model::Adaptor;
use strict;
use warnings;
use Ark 'Model';

has class => (
    is       => 'rw',
    isa      => 'Str',
    required => 1,
);

has constructor => (
    is      => 'rw',
    isa     => 'Str',
    default => 'new',
);

has args => (
    is  => 'rw',
    isa => 'Ref',
);

has deref => (
    is      => 'rw',
    isa     => 'Bool',
    default => 0,
);

no Ark;

sub ARK_DELEGATE {
    my ($self, $c) = @_;

    my $class       = $self->class;
    my $constructor = $self->constructor;

    $self->ensure_class_loaded($class);

    my $instance;
    if ($self->deref && $self->args) {
        if (ref($self->args) eq 'HASH') {
            $instance = $class->$constructor(%{ $self->args });
        }
        elsif (ref($self->args) eq 'ARRAY') {
            $instance = $class->$constructor(@{ $self->args });
        }
        else {
            die "Couldn't dereference: " . ref($self->args);
        }
    }
    elsif ($self->args) {
        $instance = $class->$constructor($self->args);
    }
    else {
        $instance = $class->$constructor;
    }

    $instance;
}

__PACKAGE__->meta->make_immutable;