File Coverage

blib/lib/DBR/Query/Part.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	3	6	50.0
condition			n/a
subroutine	10	12	83.3
pod	0	2	0.0
total	45	54	83.3

# the contents of this file are Copyright (c) 2009 Daniel Norman
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation.

###########################################
package DBR::Query::Part;

use strict;
use base 'DBR::Common';
use DBR::Query::Part::AndOr;
use DBR::Query::Part::Compare;
use DBR::Query::Part::Join;
use DBR::Query::Part::Set;
use DBR::Query::Part::Subquery;
use Carp;

sub validate{
      my $self = shift;
      my $query = shift;

      croak('Query object is required') unless ref($query) =~/^DBR::Query::/;

      $self->_validate_self($query) or return $self->_error('Failed to validate ' . ref($self) );

      for ($self->children){
	    return undef unless $_->validate($query)
      }

      return 1;
}

sub _session { undef }
sub _validate_self{ 0 } # I'm not valid unless I'm overridden

sub children{ return () }


1;