$code =<<'END'
    my $dfv = shift;
    my $var = shift;

    return if ($var !~ /\d+/);
    return 1;
END
;
my $profile->{constraint_methods}{my_name} = sub { eval $code }; # Does not work