File Coverage

blib/lib/SQL/Composer/Join.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	8	10	80.0
condition	4	6	66.6
subroutine	8	8	100.0
pod	0	3	0.0
total	58	65	89.2

package SQL::Composer::Join;

use strict;
use warnings;

require Carp;
use SQL::Composer::Quoter;
use SQL::Composer::Expression;

sub new {
    my $class = shift;
    my (%params) = @_;

    my $self = {};
    bless $self, $class;

    $self->{quoter} = $params{quoter}
      || SQL::Composer::Quoter->new(
        driver         => $params{driver},
        default_prefix => $params{as} || $params{source}
      );

    my $sql = '';
    my @bind;

    $sql .= uc($params{op}) . ' ' if $params{op};
    $sql .= 'JOIN ';

    $sql .= $self->_quote($params{source}) . ' ';

    if (my $as = $params{as}) {
        $sql .= 'AS ' . $self->_quote($as) . ' ';
    }

    if (my $constraint = $params{on}) {
        my $expr = SQL::Composer::Expression->new(
            default_prefix => $params{as} || $params{source},
            quoter         => $self->{quoter},
            expr           => $constraint
        );
        $sql .= 'ON ' . $expr->to_sql;
        push @bind, $expr->to_bind;
    }
    elsif (my $column = $params{using}) {
        $sql .= 'USING ' . $self->_quote($column);
    }

    $self->{sql}  = $sql;
    $self->{bind} = \@bind;

    return $self;
}

sub to_sql { shift->{sql} }
sub to_bind { @{shift->{bind} || []} }

sub _quote {
    my $self = shift;
    my ($column) = @_;

    return $self->{quoter}->quote($column);
}

1;
__END__