File Coverage

blib/lib/DBIx/MyParsePP/Query.pm

Criterion	Covered	Total	%
statement	59	72	81.9
branch	5	12	41.6
condition			n/a
subroutine	26	36	72.2
pod	0	29	0.0
total	90	149	60.4

package DBIx::MyParsePP::Query;
use strict;

use DBIx::MyParsePP::Lexer;
use DBIx::MyParsePP::Rule;

use constant MYPARSE_QUERY_LEXER		=> 0;
use constant MYPARSE_QUERY_ROOT			=> 1;
use constant MYPARSE_QUERY_EXPECTED		=> 2;
use constant MYPARSE_QUERY_ACTUAL		=> 3;

my %args = (
	lexer		=> MYPARSE_QUERY_LEXER,
	root		=> MYPARSE_QUERY_ROOT
);

1;

sub new {
	my $class = shift;

	my $query = bless([], $class);
	my $max_arg = (scalar(@_) / 2) - 1;

        foreach my $i (0..$max_arg) {
		if (exists $args{$_[$i * 2]}) {
			$query->[$args{$_[$i * 2]}] = $_[$i * 2 + 1];
		} else {
			warn("Unkown argument '$_[$i * 2]' to DBIx::MyParsePP::Query->new()");
		}
	}

	return $query;
}

sub getLexer {
	return $_[0]->[MYPARSE_QUERY_LEXER];
}

sub setRoot {
	$_[0]->[MYPARSE_QUERY_ROOT] = $_[1];
}

sub getRoot {
	return $_[0]->[MYPARSE_QUERY_ROOT];
}

sub root {
	return $_[0]->[MYPARSE_QUERY_ROOT];
}

sub setExpected {
	my $query = shift;
	$query->[MYPARSE_QUERY_EXPECTED] = \@_;
}

sub getExpected {
	return $_[0]->[MYPARSE_QUERY_EXPECTED];
}

sub expected {
	return $_[0]->[MYPARSE_QUERY_EXPECTED];
}

sub setActual {
	$_[0]->[MYPARSE_QUERY_ACTUAL] = $_[1];
}

sub getActual {
	return $_[0]->[MYPARSE_QUERY_ACTUAL];
}

sub actual {
	return $_[0]->[MYPARSE_QUERY_ACTUAL];
}

sub line {
	$_[0]->getLine();
}

sub getLine {
	my $query = shift;
	my $lexer = $query->getLexer();
	return $lexer->getLine();
}

sub pos {
	$_[0]->getPos();
}
sub getPos {
	my $query = shift;
	my $lexer = $query->getLexer();
	return $lexer->getPos();
}

sub tokens {
	$_[0]->getTokens();
}

sub getTokens {
	my $query = shift;
	my $lexer = $query->getLexer();
	return $lexer->getTokens();
}

sub toString() {
	my $query = shift;
	my $root = $query->root();
	return defined $root ? $root->toString() : undef;
}

sub print {
	return $_[0]->toString();
}

sub extract {
	my $query = shift;
	my $root = $query->root();
	return defined $root ? $root->extract(@_) : undef;
}

sub shrink {
	my $query = shift;
	my $root = $query->root();
	return defined $root ? $root->shrink() : undef;
}

sub getWhere {
	return $_[0]->extract('where_clause');
}

sub getGroupBy {
	return $_[0]->extract('group_clause');
}

sub getOrderBy {
	return $_[0]->extract('order_clause');
}

sub getLimit {
	return $_[0]->extract('limit_clause');
}

sub getFrom {
	return $_[0]->extract('table_factor','join_table','derived_table_list','select_from');
}

sub getSelectItems {
	return $_[0]->extract('select_item_list','select_part2','select_init');
}

sub getFields {
	my $root = $_[0]->root();
	return defined $root ? $root->getFields() : undef;
}

sub getTables {
	my $root = $_[0]->root();
	return defined $root ? $root->getTables() : undef;
}

1;

__END__