File Coverage

blib/lib/Cinnamon/Role.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	29	31	93.5

package Cinnamon::Role;
use strict;
use warnings;

use Moo;
use Hash::MultiValue;

has name => (is => 'ro', required => 1);
has hosts => (is => 'ro', required => 1);
has params => (is => 'ro', default => sub { Hash::MultiValue->new });

sub get_hosts {
    my ($self) = @_;
    my $hosts = $self->hosts;
    if (ref $hosts eq 'CODE') {
        return $hosts->();
    }
    return ref $hosts eq 'ARRAY' ? $hosts : [$hosts];
}

sub info {
    my ($self) = @_;
    return +{
        hosts  => $self->get_hosts,
        params => $self->params->as_hashref,
    };
}

1;