changed get_ to build_ the new Moose convention

[Pqsl-Perl.git] / PSQL-Query / lib / PSQL / Query / Token / Range.pm

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

extends 'PSQL::Query::Token';

has 'max' => (
        isa       => 'Str'
        , is      => 'rw'
        , lazy    => 1
        , default => \&build_max
);

has 'min'  => (
        isa       => 'Str'
        , is      => 'rw'
        , lazy    => 1
        , default => \&build_min
);

sub build_max {
        my $self = shift;

        $self->src =~ /\.+(\d+?.\d+?)$/;

        $1;
        
}

sub build_min {
        my $self = shift;

        $self->src =~ /(\d+?\.\d+?)\.{2}/;

        $1;

}

1;