Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $root    = $grammar->parse(\$input, 'Construct');

($$root)->traverse(sub {print "  " x $_[0]->{_depth}, $_[0]->getNodeVa
+lue(), "\n"});

+
  *
...
  *
    3
    4