PSQL-Query/lib/PSQL/Query/Token/Operation.pm

   1 package PSQL::Query::Token::Operation;
   2 use Moose;
   3
   4 extends 'PSQL::Query::Token';
   5
   6 use PSQL::Query::Token::Range;
   7
   8 has 'rows'  => (
   9         isa       => 'Int'
  10         , is      => 'ro'
  11         , lazy    => 1
  12         , default => sub { shift->build_rows(@_) }
  13 );
  14
  15 has 'range' => (
  16         isa       => 'PSQL::Query::Token::Range'
  17         , is      => 'ro'
  18         , lazy    => 1
  19         , default => \&build_range
  20         , handles => {
  21                 startup => 'min'
  22                 , total => 'max'
  23         }
  24 );
  25
  26 sub build_range {
  27         my $self = shift;
  28
  29         my $regex = $self->regex_range_src;
  30
  31         $self->src =~ $regex;
  32
  33         my $range = PSQL::Query::Token::Range->new({ src => $1 });
  34
  35         $range;
  36
  37 }
  38
  39 1;