File Coverage

blib/lib/Raisin/Entity/Object.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	8	8	100.0
condition	2	3	66.6
subroutine	10	10	100.0
pod	5	6	83.3
total	53	55	96.3

#!perl
#PODNAME: Raisin::Entity::Object
#ABSTRACT: An expose object.

use strict;
use warnings;

package Raisin::Entity::Object;
$Raisin::Entity::Object::VERSION = '0.94';
use Plack::Util::Accessor qw(
    desc
    name
    runtime
    using
);
use Types::Standard qw(Any ArrayRef HashRef);

sub new {
    my ($class, $name, @params) = @_;

    if (scalar(@params) % 2 && ref($params[-1]) eq 'CODE') {
        splice @params, -1, 0, 'runtime';
    }

    bless { name => $name, @params }, $class;
}

sub required { 1 }
sub alias { shift->{as} }
sub condition { shift->{if} }

sub type {
    my $self = shift;

    my $type = do {
        if ($self->{type}) {
            $self->{type};
        }
        elsif ($self->using) {
            ArrayRef[HashRef];
        }
        else {
            Any;
        }
    };

    $type;
}

sub display_name {
    my $self = shift;
    $self->alias || $self->name;
}

1;

__END__