Help for this page

Select Code to Download


  1. or download this
    return unless ref($hashref) eq 'HASH';
    
  2. or download this
    return unless keys %$hashref;
    
  3. or download this
    sub treeify {
        my ($sth) = @_;
    ...
    
        return \%root;
    }
    
  4. or download this
    {
        my $sponge = DBI->connect(
    ...
        use Data::Dumper;
        print Dumper $tree;
    }
    
  5. or download this
    $VAR1 = {
              'a' => {
    ...
                              }
                     }
            };