Select Code to Download

#!/usr/bin/perl

...
sub children{
  return list( @{ $_[0]->{_list} });
}

package main;

...

EOG

my $tree = Branch->new(3)->add_child(
     Branch->new(1.1)->add_child(
...
my $result = $grammar->apply($tree, 'len');
print "$result\n";

Deep recursion on subroutine "Language::AttributeGrammar::Thunk::get" 
+at (eval 29) line 5.

# find the global minimum and propagate it back down the tree
ROOT:   $/.gmin        = { $/.min }
...
                     ^
                     |
                    this is superfluous