Help for this page

Select Code to Download

Select or download this

$ perl -MData::Printer -E 'sub some_sub { return 1 } ; %h = ( foo => s
+ome_sub(), bar => 42 ); p %h'
{
...
    bar   42,
    foo   undef
}