Select Code to Download

my $parser = new Parse::RecDescent (q[
    functiondefine: /function/i name "(" parameters[$item[1]](?) ")" "
+{"
...
    parameter:      name /as/i variabletype { [@item[1..$#item]] }
    variabletype:   /variant|array|keyarray/i
]);