Help for this page

Select Code to Download


  1. or download this
    sub process {
  my $node = shift;
...
}

process({ 'a' => '1', 'b' => [ '2' ],  'c' => { 'd' => '3' } });
  2. or download this
    package Local::MyComp::Map;

...
sub keys { ... }

etc. etc.
  3. or download this
      if (my $reftype = ref($node)) {
    if (blessed($node) && $node->isa(Local::MyComp::Map) {
      process_map($node);
    } 
  ...