File Coverage

blib/lib/SQL/Object/Interp.pm

Criterion	Covered	Total	%
statement	43	48	89.5
branch	5	8	62.5
condition	5	12	41.6
subroutine	12	12	100.0
pod	5	5	100.0
total	70	85	82.3

package SQL::Object::Interp;
use strict;
use warnings;
use utf8;
use base 'SQL::Object';
use Exporter qw/import/;

our @EXPORT_OK = qw/isql_obj/;

our $VERSION = '0.04';

sub isql_obj {
    require SQL::Interp;
    my ($sql, @args) = SQL::Interp::sql_interp(@_);
    my $bind = [@args];
    SQL::Object::Interp->new(sql => $sql, bind => $bind);
}

sub _compose {
    my ($self, $op, $sql, @bind) = @_;

    $self->{sql} = $self->{sql} . " $op " . $sql;
    $self->{bind} = [@{$self->{bind}}, @bind];
    $self;
}

sub _no_compose {
    my ($self, $sql, @bind) = @_;
    $self->{sql} = $sql;
    $self->{bind} = [@bind];
    $self;
}

sub and {
    my ($self, @args) = @_;
    if(defined $self->{sql} && $self->{sql} ne ''){
        $self->_compose('AND', SQL::Interp::sql_interp(@args));
    }else{
        $self->_no_compose(SQL::Interp::sql_interp(@args));
    }
}

sub or {
    my ($self, @args) = @_;
    if(defined $self->{sql} && $self->{sql} ne ''){
        $self->add_parens->_compose('OR', SQL::Interp::sql_interp(@args));
    }else{
        $self->_no_compose(SQL::Interp::sql_interp(@args));
    }
}

sub compose_and {
    my ($self, $other) = @_;
    if(defined $self->{sql} && $self->{sql} ne ''){
        $self->_compose('AND', $other->{sql}, @{$other->{bind}});
    }else{
        $self->_no_compose($other->{sql}, @{$other->{bind}});
    }
}

sub compose_or  {
    my ($self, $other) = @_;
    if(defined $self->{sql} && $self->{sql} ne ''){
        $self->add_parens->_compose('OR', $other->add_parens->{sql}, @{$other->{bind}});
    }else{
        $self->_no_compose($other->add_parens->{sql}, @{$other->{bind}});
    }
}


1;
__END__