File Coverage

lib/SQL/QueryBuilder/Flex/Statement.pm

Criterion	Covered	Total	%
statement	41	43	95.3
branch	5	6	83.3
condition	2	3	66.6
subroutine	11	12	91.6
pod	0	7	0.0
total	59	71	83.1

package SQL::QueryBuilder::Flex::Statement;

use strict;
use warnings;
use SQL::QueryBuilder::Flex::Writer;
use Scalar::Util qw(weaken);

our $AUTOLOAD;

sub AUTOLOAD {
    my ($self, @args) = @_;

    my ($method) = $AUTOLOAD =~ /::(\w+)\z/;

    return if $method eq 'DESTROY';

    do {
        if (my $sub = $self->can($method)) {
            return $sub->($self, @args);
        }
        $self = $self->parent();
    } while ($self);

    die "Unknown method: '$method'";
}

sub new {
    my ($class, @options) = @_;

    my $self = bless {
        parent  => undef,
        _writer => undef,
        @options,
    }, $class;

    weaken( $self->{parent} );

    return $self;
}

sub parent {
    my ($self) = @_;
    return $self->{parent};
}

sub get_writer {
    my ($self) = @_;
    return $self->{_writer} ||= SQL::QueryBuilder::Flex::Writer->new();
}

sub set_writer {
    my ($self, $writer) = @_;
    $self->{_writer} = $writer;
    return;
}

sub build {
    my ($self, $writer, $indent) = @_;
    if ($writer) {
        $self->set_writer($writer);
    }
    else {
        $writer = $self->get_writer();
        $writer->clear();
    }
    $self->do_build($writer, $indent);
    return;
}

sub do_build {
    die "Not implemented";
}

sub to_sql {
    my ($self, $indent) = @_;
    $self->build();
    my $writer = $self->get_writer();
    return $writer->to_sql($indent), $writer->get_params();
}

1;