Select Code to Download

use Parse::RecDescent;
use Data::Dump::Streamer;
...
my $parser = new Parse::RecDescent ($grammar);

Dump ($parser->test ("x = 1\ny = 2\nz = 3"));

$ARRAY1 = [
            { x => 1 },
            { y => 2 },
            { z => 3 }
          ];

$HASH1 = {
           x => 1,
           y => 2,
           z => 3
         };