File Coverage

blib/lib/EntityModel/Query/Select.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	17	17	100.0

package EntityModel::Query::Select;
{
  $EntityModel::Query::Select::VERSION = '0.102';
}
use EntityModel::Class {
	_isa => [qw{EntityModel::Query}],
};

=head1 NAME

EntityModel::Query::Select - select statement definition

=head1 VERSION

version 0.102

=head1 SYNOPSIS

See L.

=head1 DESCRIPTION

See L.

=cut

=head1 METHODS

=cut

=head2 import

Register the parse handling for our 'select' attribute.

=cut

sub import {
	my $class = shift;
	$class->register(
		'select' => sub {
			my $self = shift;
			$self->upgradeTo('EntityModel::Query::Select');
			$self->parse_base(
				@_,
				method	=> 'field',
				type	=> 'EntityModel::Query::Field'
			);
		}
	);
}

=head2 type

=cut

sub type { 'select'; }

=head2 keyword_order

=cut

sub keyword_order { qw{type fields from join where having group order offset limit}; }

1;

__END__