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

   1 package PSQL::Query::Token::Operation::Cost;
   2 use Moose;
   3
   4 extends 'PSQL::Query::Token::Operation';
   5
   6 has 'width' => (
   7         isa       => 'Int'
   8         , is      => 'ro'
   9         , lazy    => 1
  10         , default => \&build_width
  11 );
  12
  13 has 'regex_range_src' => (
  14         isa       => 'RegexpRef'
  15         , is      => 'ro'
  16         , default => sub { qr/cost=(\S+)/ }
  17 );
  18
  19 sub build_width {
  20         my $self = shift;
  21
  22         $self->src =~ /width=(\d+)/;
  23
  24         $1;
  25
  26 }
  27
  28 sub build_rows {
  29         my $self = shift;
  30
  31         $self->src =~ /rows=(\d+)/;
  32
  33         $1;
  34
  35 }
  36
  37 1;