Select Code to Download

  package Foo;
  our %callbacks = (
...
      $choice = ...;
      $callbacks{$choice}->(@args);
  }

  package main;
  use Foo;
  $Foo::callbacks{iguana} = sub { ... };

%Time ExclSec CumulS #Calls sec/call Csec/c  Name
90.73   0.770  0.648  60783   0.0000 0.0000  Foo::__ANON__

  package Foo;
  sub Foo::callbacks::pig { ... } # no more hash!
...
  ## now extend Foo by doing this:
  use Foo;
  sub Foo::callbacks::iguana { ... }