sub validate
{
  my $self = shift;

  # do validation

  print STDERR "it is going to call $ISA[0] :: validate\n";
  return $self->SUPER::validate(@_);
}