Help for this page
$retVal = $someObject->bar()->doSomething(); $retVal = \$retVal;
my $myVal = $someObject->bar()->doSomething(); $retVal = \$myVal; Log4perl->debug('retval: ', sub {$retVal}); return $retVal;