package Sub::Object;
use base qw(Orig::Obj);

sub doSomething { 
  my $self = shift @_;

  $myFunkyLogMachine->Log("hi!");
  my $value =  $self->SUPER::doSomething(@_);
  $myFunkyLogMachine->Log("hi!");

  return $value;
}