サブ規則の引数リストは開始規則が呼び出されるときに使う引数リストでも渡せる

Parse::RecDescent everyday parser 
#!/usr/bin/env perl

use strict;
use Parse::RecDescent;

my $grammar =
q{
    inputs : 'a' { print "$arg[0] $arg[1]\n"; }
};

my $parse = new Parse::RecDescent ($grammar);

while (<>)
{
    defined $parse->inputs($_, 1, "foo", 2) or print "Bad text!\n";
}

で、

a
foo 2