Help for this page

Select Code to Download


  1. or download this
    my %f;
%f=(One=>1,
...
ref $f{$_} eq 'CODE' and $f{$_}=$f{$_}->() for keys %f;

print Dumper \%f; # All populated
  2. or download this
    $VAR1 = {
          'two' => 1,
          'One' => 1
        };
  3. or download this
    my %f;
%f=(One=>{this=>'that'},
    two=>sub{$f{One}});