sub myFunc {
  $foo = shift;
  $foo++
  $foo;
}

##</code><code>##

$obj -> addFunc( \&amp;myFunc );