Help for this page

Select Code to Download


  1. or download this
    sub clean {
       our $node; local *node = \$_[0];  # Alias
    ...
          $node = undef if !keys(%$node);
       }
    }
    
  2. or download this
    use strict;
    use warnings;
    ...
       print(dumper($d), "\n");
       print("\n");
    }
    
  3. or download this
    [[1],[],{1 => 2,2 => {}}]
    [[1],{1 => 2}]
    
    [undef,[undef],{"x" => undef},\undef,\\$VAR1->[3]]
    undef