File Coverage

blib/lib/HTML/FormFu/Role/CustomRoles.pm

Criterion	Covered	Total	%
statement	27	30	90.0
branch	3	10	30.0
condition	2	6	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	37	52	71.1

package HTML::FormFu::Role::CustomRoles;

use strict;
our $VERSION = '2.05'; # VERSION

use Moose::Role;
use Moose::Util qw( ensure_all_roles );

use List::Util 1.45 qw( uniq );

has _roles => (
    is      => 'rw',
    default => sub { [] },
    lazy    => 1,
    isa     => 'ArrayRef',
);

sub roles {
    my $self = shift;

    my @roles = @{ $self->_roles };
    my @new;

    if ( 1 == @_ && 'ARRAY' eq ref $_[0] ) {
        @new = @{ $_[0] };
    }
    elsif ( @_ ) {
        @new = @_;
    }

    if (@new) {
        for my $role (@new) {
            if ( !ref($role) && $role =~ s/^\+// ) {
                push @roles, $role;
            }
            elsif ( !ref $role ) {
                push @roles, "HTML::FormFu::Role::$role";
            }
            else {
                push @roles, $role;
            }
        }

        @roles = uniq @roles;

        ensure_all_roles( $self, @roles );

        $self->_roles(\@roles);
    }

    return [@roles];
}

1;