sub doSomethingSpecial {
    my ($class, $object) = @_;
    ...
  }