sub INIT {
  ...
  my $ref = $inheriting_class->can($method);
  if (! defined($ref)|| 
      defined(&$method) && $ref == \&$method) {
    $bad = 1;
    warn ...;
  }
}