File Coverage

blib/lib/DDC/PP.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	3	4	75.0
condition			n/a
subroutine	10	10	100.0
pod	0	1	0.0
total	43	45	95.5

#-*- Mode: CPerl -*-

## File: DDC::PP.pm
## Author: Bryan Jurish
## Description:
##  + DDC Query utilities: pure-perl drop-in replacements for DDC::XS
##======================================================================

package DDC::PP;
use DDC::Concordance;
use strict;

use DDC::PP::Constants;
use DDC::PP::Object;
use DDC::PP::CQuery;
use DDC::PP::CQCount;
use DDC::PP::CQFilter;
use DDC::PP::CQueryOptions;

use DDC::PP::CQueryCompiler;

our @ISA = qw();
our $VERSION = $DDC::Concordance::VERSION;

##======================================================================
## Globals

our ($COMPILER);

##======================================================================
## Methods

## $CQuery = DDC::XS->parse($qstr)
##  + convenience wrapper
sub parse {
  shift if (UNIVERSAL::isa($_[0],__PACKAGE__));
  $COMPILER = DDC::PP::CQueryCompiler->new() if (!$COMPILER);
  return $COMPILER->ParseQuery(@_);
}


1; ##-- be happy

__END__