The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package HTMLFormFu::DBICUniqueFake;
use Moose;
use MooseX::Attribute::FormFuChained;

extends 'HTML::FormFu::Constraint';

has id_field => ( is => 'rw', traits => ['FormFuChained'] );

sub constrain_value {
    my ( $self, $value ) = @_;

    return 1 if !defined $value || $value eq '';

    return 1;
}

1;