my $profile = {
  required => qw[my_name],
  constraint_methods => {
    my_name => sub {
      my $dfv = shift;
      my $var = shift;

      return if ($var !~ /\d+/);
      return 1;
    }
  }
}