Select Code to Download

sub doit {
  ...
  Database::Special->doSomethingSpecial($db);
  # no need to rebless, you haven't tampered with $db
}

  sub doSomethingSpecial {
    my ($self) = @_;
    ...
  }

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