File Coverage

blib/lib/EntityModel/Query/SubQuery.pm

Criterion	Covered	Total	%
statement	3	16	18.7
branch	0	2	0.0
condition			n/a
subroutine	1	4	25.0
pod	2	3	66.6
total	6	25	24.0

package EntityModel::Query::SubQuery;
{
  $EntityModel::Query::SubQuery::VERSION = '0.102';
}
use EntityModel::Class {
	_isa => [qw{EntityModel::Query}],
	subquery => { type => 'array', subclass => 'EntityModel::Query' }
};

=head1 NAME

EntityModel::Query::SubQuery - subquery

=head1 VERSION

version 0.102

=head1 SYNOPSIS

See L.

=head1 DESCRIPTION

See L.

=cut

=head1 METHODS

=cut

# We behave as a select
sub type { 'select'; }

sub subtype { die 'virtual method subtype called'; }

sub inlineSQL {
	my $self = shift;
	my @sql;
	my @sub = $self->subquery->list;
	while(@sub) {
		my $entry = shift(@sub);
		push @sql, '(';
		push @sql, @{ $entry->inlineSQL };
		push @sql, ')';
		push @sql, ' ' . $self->subtype . ' ' if @sub;
	}
	return \@sql;
}

1;

__END__