Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

use strict;
use Test::More tests => 2;
my $form
= HTML::FormFu->new->id('form')->auto_constraint_class('%t_constraint');
$form->element('Text')->name('foo');
$form->element('Text')->name('bar')->auto_constraint_class('%f_%t_c');
$form->constraint('Number');
like( $form->get_field('foo'), qr!\bnumber_constraint\b! );
like( $form->get_field('bar'), qr!\bform_number_c\b! );