File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	4	75.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	0	1	0.0
total	36	38	94.7

package HTML::FormFu::Role::FormAndBlockMethods;

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

use Moose::Role;

use HTML::FormFu::Util qw( _merge_hashes );
use Carp qw( croak );
use List::Util 1.33 qw( none );

sub default_args {
    my ( $self, $defaults ) = @_;

    $self->{default_args} ||= {};

    if ($defaults) {

        my @valid_types = qw(
            elements        deflators
            filters         constraints
            inflators       validators
            transformers    output_processors
        );

        for my $type ( keys %$defaults ) {
            croak "not a valid type for default_args: '$type'"
                if none { $type eq $_ } @valid_types;
        }

        $self->{default_args}
            = _merge_hashes( $self->{default_args}, $defaults );
    }

    return $self->{default_args};
}

1;