I'm probably not the best person to respond to this but this appears to be crying out for some sort of exception handler. Our local PM group was going to discuss exceptions but didn't. The pre-dialog revealed that Alzabo is a heavy user of one of the exception styles. The net result is I'm still not the best person to answer but there are exception classes out there that handle this for you. I'd look at Exception and perhaps Exception::Class / Exception::Class::DBI. I'd almost suggest grabbing Alzabo to check out the exception style and go from there. Consider it a working code example. I know I will when I go check it out later.

__SIG__
printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B::svref_2object(sub{})->OUTSIDE