sub new {
  #...
  bless $self, $class;

  for my $check (qw(func1 func2 rarelyused)) {
    die "$class doesn't have method '$check'" unless $self->can($check);
  }
}