File Coverage

blib/lib/Form/Tiny/FieldDefinitionBuilder.pm

Criterion	Covered	Total	%
statement	40	41	97.5
branch	8	10	80.0
condition	5	6	83.3
subroutine	10	10	100.0
pod	0	1	0.0
total	63	68	92.6

package Form::Tiny::FieldDefinitionBuilder;
$Form::Tiny::FieldDefinitionBuilder::VERSION = '2.21';
use v5.10;
use strict;
use warnings;
use Moo;
use Carp qw(croak);
use Scalar::Util qw(blessed);
use Types::Standard qw(HashRef);

use Form::Tiny::FieldDefinition;
use Form::Tiny::Utils qw(has_form_meta);

has 'build_data' => (
	is => 'ro',
	required => 1,
);

has 'addons' => (
	is => 'ro',
	isa => HashRef,
	default => sub { {} },
	init_arg => undef,
);

sub build
{
	my ($self, $context) = @_;

	my $data = $self->build_data;
	my $dynamic = ref $data eq 'CODE';
	if ($dynamic && defined blessed $context) {
		croak 'building a dynamic field definition requires Form::Tiny form'
			unless has_form_meta($context);
		$data = $data->($context);
		$dynamic = 0;
	}

	return $self if $dynamic;

	my $definition;
	if (defined blessed $data && $data->isa('Form::Tiny::FieldDefinition')) {
		$definition = $data;
	}
	elsif (ref $data eq 'HASH') {
		$definition = Form::Tiny::FieldDefinition->new($data);
	}
	else {
		croak sprintf q{Invalid form field '%s' data: must be hashref or instance of Form::Tiny::FieldDefinition},
			$self->name;
	}

	$definition->set_addons($self->addons);

	return $definition;
}

1;