File Coverage

blib/lib/Builder.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch			n/a
condition			n/a
subroutine	11	12	91.6
pod	4	4	100.0
total	47	50	94.0

package Builder;
use strict;
use warnings;
use Carp;
our $VERSION = '0.06';


sub new {
    my ( $class, %args ) = @_;
    my $level = 0;
    bless {
        %args,
        blocks => [],
        stack  => [],
        level  => sub { $level },
        inc    => sub { $level++ },
        dec    => sub { $level-- },
    }, $class;
}

sub block {
    my ( $self, $block, $args_ref ) = @_;
    # TODO: check args_ref is hashref and if anything left in @_ then croak
    eval "require $block";
    # TODO: put $@ check here and add relevant test

    return $self->_new_block( $block->__new__(
        %$args_ref,
        _output   => $self->{output},
        _inc      => $self->{inc},
        _dec      => $self->{dec},
        _level    => $self->{level},
        _block_id => $self->_block_id,
        _stack    => $self->{ stack }
    ));
}

sub render {
    my ( $self ) = @_;
    my $render;

    # loop thru return chain (DOM!)
    while ( my $block = shift @{ $self->{ stack } } ) {
        my ( $block_id, $code ) = @$block;
        $render.= $code->();
    }

    return $render;
}

sub flush {
    my ( $self ) = @_;
    $self->{ stack } = [];
}

sub _block_id {
    my ( $self ) = shift;
    return scalar @{ $self->{blocks} };
}

sub _new_block {
    my ( $self, $block ) = @_;
    push @{ $self->{blocks} }, $block;
    return $block;
}


1;

__END__