package PSQL::Query::Token::Operation;
use Moose;

extends 'PSQL::Query::Token';

use PSQL::Query::Token::Range;

has 'rows'  => (
	isa       => 'Int'
	, is      => 'ro'
	, lazy    => 1
	, default => sub { shift->get_rows(@_) }
);

has 'range' => (
	isa       => 'PSQL::Query::Token::Range'
	, is      => 'ro'
	, lazy    => 1
	, default => \&get_range
	, handles => {
		startup => 'min'
		, total => 'max'
	}
);

sub get_range {
	my $self = shift;

	my $regex = $self->regex_range_src;

	$self->src =~ $regex;

	my $range = PSQL::Query::Token::Range->new({ src => $1 });

	$range;

}

1;