Select Code to Download

if ($reftype eq 'REF' || $reftype eq 'SCALAR') {
      clean($$node);
      $node = undef if !defined($$node);
   } els

sub clean {
   our $node; local *node = \$_[0];  # Alias
...
      $node = undef if !keys(%$node);
   }
}

[[[],[],["b"]],"a"]
[[["b"]],"a"]

[[[],[],[]],"a"]
["a"]

            my $n = scalar(keys %$ref);
            if ($n == 0) {
                  return 0;
            }
            return 1;

return keys(%$ref) ? 1 : 0;

return keys(%$ref);