$opts->{profile}->{constraint_methods}->{aup} = [
        sub {
           my $dfv = shift;
           my $valid = 1;

           my ($field, $value) = ($dfv->get_current_constraint_field, $dfv->get_current_constraint_value);

           $dfv->name_this("aup");

           $valid = 0 unless $value eq 1;

           return $valid;
        }
    ];