sub build_hoh {
	my $self = shift;
	my %params;
	my $form = $self->form;

	for my $fieldname ( $form->fieldnames ) {
		my $name  = $form->name;
		my $field = $form->field($fieldname);

		$params{$name} = {
		    field_name => $fieldname,
            validation => $field->validation
        };

	}

	return %params;
}


my $form = Form::Sensible::Form->new(name=>'test');
my $textarea = Form::Sensible::Field::Text->new(name=>'test_field', validation => { regex => qr/^[0-9a-z]*$/  });
$form->add_field($textarea);
my $dumper = Form::Sensible::Renderer::TestDump->new(form=>$form);
my %validation = $dumper->build_hoh;
my %check_against = { test=> { field_name =>'test_field', validation => { regex => qr/^[0-9a-z]*$/  } } };
is_deeply(\%check_against, \%validation);