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

has 'trim_whitespace' => (
	isa       => 'RegexpRef'
	, is      => 'ro'
	, lazy    => 1
	, default => sub { qr/^\s+|\s+$/ }
);

has 'src' => (
	isa        => 'Str'
	, is       => 'ro'
	, required => 1
);

has 'src_trimmed' => (
	isa       => 'Str'
	, is      => 'ro'
	, lazy    => 1
	, default => \&get_src_trimmed
);

sub get_src_trimmed {
	my $self = shift;

	my $regex = $self->trim_whitespace;

	( my $trimmed = $self->src ) =~ s/$regex//g;

	$trimmed;
	
}

1;