I've thinking about this more and I think you're missing something:

package Baz;

sub foo {
    # Do something here ...
}

package Baz::Ok;

use base 'Baz';

sub foo {
    my $self = shift;

    # Call parent method first!
    my $rv = $self->SUPER::foo( @_ );

    # Log the call somehow

    return $rv;
}
[download]

From the outside world, I didn't override foo(). I just decorated it a little. You might want to think about that.