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

   1 package PSQL::Query::Token;
   2 use Moose;
   3
   4 has 'trim_whitespace' => (
   5         isa       => 'RegexpRef'
   6         , is      => 'ro'
   7         , lazy    => 1
   8         , default => sub { qr/^\s+|\s+$/ }
   9 );
  10
  11 has 'src' => (
  12         isa        => 'Str'
  13         , is       => 'ro'
  14         , required => 1
  15 );
  16
  17 has 'src_trimmed' => (
  18         isa       => 'Str'
  19         , is      => 'ro'
  20         , lazy    => 1
  21         , default => \&build_src_trimmed
  22 );
  23
  24 sub build_src_trimmed {
  25         my $self = shift;
  26
  27         my $regex = $self->trim_whitespace;
  28
  29         ( my $trimmed = $self->src ) =~ s/$regex//g;
  30
  31         $trimmed;
  32
  33 }
  34
  35 1;