Select Code to Download

package My::Apache::Session;
sub TIEHASH {
...
  goto &{$_[0]->can("STORE")};
}
sub my_initialization { ... }