use strict;
use warnings;
-our $VERSION = '1.59_01';
+our $VERSION = '1.62';
our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
parens_value_list : '(' VALUE(s /,/) ')'
{ $item[2] }
-expr : /[^)]+/
+expr : /[^)]* \( [^)]+ \) [^)]*/x # parens, balanced one deep
+ | /[^)]+/
sort_order : /(ASC|DESC)/i