diff options
Diffstat (limited to 'eg/table_template.pm')
| -rw-r--r-- | eg/table_template.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/eg/table_template.pm b/eg/table_template.pm index d609bd544..5da6f3b28 100644 --- a/eg/table_template.pm +++ b/eg/table_template.pm @@ -93,7 +93,13 @@ and replace methods. sub check { my $self = shift; - ''; #no error + my $error = + $self->ut_numbern('primary_key') + || $self->ut_number('validate_other_fields') + ; + return $error if $error; + + $self->SUPER::check; } =back |