$obj->doSomething();
##</code><code>##

$myFunkyLogMachine->Log("hi!");
$obj->doSomething();
$myFunkyLogMachine->Log("bye!");

##</code><code>##

*obj::doSomething2 = \&obj::doSomething;
*obj::doSomething = sub { $myFunkyLogMachine->Log("hi!"); $obj->doSomething2(@_); $myFunkyLogMachine->Log("bye!"); }