- my $dfv_results = ($obj) ? undef : $class->dfv_results->msgs ;
-
- # handle dfv errors
- if ( $dfv_results->has_missing ) { # missing fields
- foreach my $field ( $dfv_results->missing ) {
- $errors->{$field} = "$field is required";
+ my $dfv_results = Data::FormValidator->check($r->{params}, $class->dfv_profile);
+ if ($dfv_results->success) {
+ $obj = $class->create($this_class_params);
+ } else {
+ # handle dfv errors
+ if ( $dfv_results->has_missing ) { # missing fields
+ foreach my $field ( $dfv_results->missing ) {
+ $errors->{$field} = "$field is required";
+ }