Select Code to Download

    name:                   
        'match' | 'name' | 'mode' | 'priority'

    name:                   
        'match'
        | 'name'
        | 'mode'
        | 'priority'

    name:                   
        'match'
...
        { [$item[0],$item[1]] }
        | 'priority'
        { [$item[0],$item[1]] }

    sub AUTOLOAD {
        my $tree = shift;
...
        print STDERR "@@@ $AUTOLOAD(\$tree) @@@\n";
        recurse($tree);
    }

    sub startrule {
        my $tree = shift;
...
        }
    }

    style_option:
        'version'
...
        | /[a-zA-Z0-9:_.\-]+/
        { [@item[0..$#item]] }

    style_option:
        'version'
...
        /[a-zA-Z0-9:_.\-]+/
        { $item[1] }

    preserve_space:
        'preserve-space' '[' 'elements' '=' qstring ']' paren(?)

        { [$item[0],$item[5]] }

    xcomment:
        <skip: qr/[ \t]*/> newline(0..) '<!--'
...
             $return = ['xcomment',$return];
        }

    #_________________________________________________________________
+_____________

...

    #_________________________________________________________________
+_____________

    startrule:
        is_printable(s)
...
        | 'priority'
        { $item[1] }