File Coverage

blib/lib/SQL/QueryBuilder/Pretty/Print.pm

Criterion	Covered	Total	%
statement	12	45	26.6
branch	0	6	0.0
condition	0	7	0.0
subroutine	4	17	23.5
pod	12	12	100.0
total	28	87	32.1

#!/usr/bin/perl
package SQL::QueryBuilder::Pretty::Print;

use strict;
use warnings;

our $VERSION = '0.01';

use Carp qw(croak);
use Data::Dumper;

sub new {
    my $class = shift;
    my %self  = (
        '-indent_ammount' => 4,
        '-indent_char'    => ' ',
        '-new_line'       => "\n",
        @_,
        'indent_level'      => 0,
        'indent_multiplier' => 1,
        'skip_next_space'   => 0,
        'query'             => undef,
    );

    return bless { %self }, ref $class || $class;
}

sub _generic_method {
    my $self = shift;
    my $key  = shift;

    $self->{ $key } = shift if defined $_[0];

    return $self->{ $key };
}

sub current_indent {
    my $self = shift;

    return
        $self->indent_char x ( $self->indent_level * $self->indent_ammount );
}

sub indent {
    my $self = shift;
    my $multiplier = shift || 1;

    $self->indent_level(+1 * $multiplier);
    $self->var( $self->current_indent );

    return 1;
}

sub indent_ammount { return shift->{'-indent_ammount'}; }
sub indent_char    { return shift->{'-indent_char'};    }

sub indent_level {
    my $self = shift;

    $self->{'indent_level'} += shift if defined $_[0];

    return $self->{'indent_level'} >= 0 ? $self->{'indent_level'} : 0;
}

sub indent_multiplier { return shift->_generic_method( 'indent_multiplier',  @_ ); }

sub new_line {
    my $self = shift;
    $self->var( $self->{'-new_line'} );
    return 1;
}

sub query { return shift->{'query'}; }

sub unindent {
    my $self       = shift;
    my $multiplier = shift || 1;

    $self->indent_level(-1 * $multiplier);
    $self->var( $self->current_indent );

    return 1;
}

sub var {
    my $self = shift;
    $self->{'query'} .= shift;
    return 1;
}

sub skip_next_space  {
    return shift->_generic_method( 'skip_next_space'  ,  @_ );
}

1;
__END__