I tried to do a simmilar thing with SUPER::.

if ( handle this ) {
   eval "sub $AUTOLOAD {...}";
   goto &$AUTOLOAD
} else {
   goto &{"SUPER::$fname"};
}
[download]

I didn't want to presume which parent function to call.

 
-Sean.