my $profile = {

  required      => [ qw(

    user_name
    user_email
    user_email_confirm

    # more stuff here...

  ) ],

  msgs          => {

    prefix      => q[e_],
    constraints => {

      # helpful error messages:

      user_email_valid  => q[Invalid address],
      user_email_lookup => q[Already registered],
      emails_match      => q[Emails don't match],
    },
  },

  # tidy entries:

  filters       => ['trim','strip'],

  constraints   => {

    user_email            => [

      {
       name       => q[user_email_valid],
       constraint => q[email],
      },
      {
       name       => q[user_email_lookup],
       constraint => sub {

         # have a look in database:

         !My::Content::User->search(

           user_email => $_[0],
         );
       },
       params     => [ qw(

         user_email
       ) ],
      }
    ],

    user_email_confirm    => {

      name       => q[emails_match],
      constraint => sub { $_[0] eq $_[1] },
      params     => [ qw(

        user_email
        user_email_confirm
      ) ],
    },

    # more constraints, perhaps...
  },
};