Help for this page

Select Code to Download

Select or download this

     use PadWalker qw/peek_my/;
     use Data::Dump qw/dump/;
...
             printf "%15s => %s\n", $var, dump $ref;
         }
     }