#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Lucene::QueryParser;

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

print Dumper( $struct );

##</code><code>##

$VAR1 = bless( [
  bless( {
    'subquery' => bless( [
      bless( {
        'query' => 'TERM',
        'type' => 'NORMAL',
        'term' => 'A'
      }, 'Lucene::QueryParser::Term' ),
      bless( {
        'conj' => 'OR',
        'query' => 'TERM',
        'type' => 'NORMAL',
        'term' => 'B'
      }, 'Lucene::QueryParser::Term' ),
      bless( {
        'conj' => 'AND',
        'subquery' => bless( [
          bless( {
            'query' => 'TERM',
           'type' => 'NORMAL',
           'term' => 'B'
          }, 'Lucene::QueryParser::Term' ),
         bless( {
            'conj' => 'OR',
            'query' => 'PREFIX',
            'type' => 'NORMAL',
            'term' => 'C'
          }, 'Lucene::QueryParser::Prefix' )
        ], 'Lucene::QueryParser::TopLevel' ),
        'query' => 'SUBQUERY',
        'type' => 'NORMAL'
      }, 'Lucene::QueryParser::Subquery' )
    ], 'Lucene::QueryParser::TopLevel' ),
    'query' => 'SUBQUERY',
    'type' => 'NORMAL'
  }, 'Lucene::QueryParser::Subquery' )
], 'Lucene::QueryParser::TopLevel' );