sub abstract : lvalue { shift->{abstract} }

for my $method (qw/select insert update delete/) {
    *$method = sub {
        require SQL::Abstract;
        my $self = shift;
        $self->{abstract} ||= SQL::Abstract->new;
        return $self->query($self->{abstract}->$method(@_));
    }
}