File Coverage

lib/SQL/QueryBuilder/Flex/Writer.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	3	4	75.0
condition	2	2	100.0
subroutine	8	8	100.0
pod	0	6	0.0
total	42	49	85.7

package SQL::QueryBuilder::Flex::Writer;

use strict;
use warnings;

sub new {
    my ($class) = @_;
    my $self = bless {
        _buffer => [],
        _params => [],
    }, $class;
    return $self;
}

sub clear {
    my ($self) = @_;
    $self->{_buffer} = [];
    $self->{_params} = [];
}

sub write {
    my ($self, $str, $indent) = @_;
    push @{ $self->{_buffer} }, [ $str, $indent || 0 ];
    return;
}

sub add_params {
    my ($self, @params) = @_;
    push @{ $self->{_params} }, @params;
    return;
}

sub get_params {
    my ($self) = @_;
    return wantarray ? @{ $self->{_params} } : $self->{_params};
}

sub to_sql {
    my ($self, $indent) = @_;

    return $indent
        ? join(
            "\n",
            map {
                join('', ("  ") x $_->[1], $_->[0])
            } @{ $self->{_buffer} }
        )
        : join(
            ' ',
            map {
                join(' ', $_->[0])
            } @{ $self->{_buffer} }
        )
    ;
}

1;