Select Code to Download

#!/usr/bin/perl

...
        print "- tree: ".Template::Alloy->dump_parse_expr(\$expr)."\n"
+;
    }
}

--------------------
- expr: 1 + 2
...
- outp: 7
- err : Failed to consume entire string
- tree: [[undef, '+', 3, 4], 0]