Select Code to Download

#!/usr/bin/perl

...
my $struct = parse_query('(A OR B AND (B OR C*))' );

print Dumper( $struct );

$VAR1 = bless( [
  bless( {
...
    'type' => 'NORMAL'
  }, 'Lucene::QueryParser::Subquery' )
], 'Lucene::QueryParser::TopLevel' );