Select Code to Download

sub peek_lexicals {
    my $h = peek_my(2);
...
    print  "values=", join (", ", values %$h), "-\n";
    print  "end of lexicals-----------------------\n";
}

my $b = 42;
$c = "Hallo world\n";

print "printing lexical $b\n";
print "printing global $c\n";

use Safe;
use Safe::Hole;
...
$Devel::Trace_shushu2::TRACE= 1;

$QTL_CPT->rdo ( "$SCRIPT_NAME" );

 
lexicals-----------------------
keys=$b-
...
values=SCALAR(0x810811c)-
end of lexicals-----------------------
printing global Hallo world

 
lexicals-----------------------
keys=$SCRIPT_NAME-
...
values=SCALAR(0x824f76c), SCALAR(0x810b704), SCALAR(0x8225304)-
end of lexicals-----------------------
printing global Hallo world