File Coverage

blib/lib/Template/Alloy/Stream.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	5	6	83.3
condition	2	3	66.6
subroutine	6	7	85.7
pod	1	3	33.3
total	38	44	86.3

package Template::Alloy::Stream;

=head1 NAME

Template::Alloy::Stream - Stream role - allows for playing out the AST and printing straight to file handle

=cut

use strict;
use warnings;
use Template::Alloy;
use Template::Alloy::Play;

our $VERSION = $Template::Alloy::VERSION;

sub new { die "This class is a role for use by packages such as Template::Alloy" }

###----------------------------------------------------------------###

sub stream_tree {
    my ($self, $tree) = @_;

    local $Template::Alloy::Play::DIRECTIVES->{'CLEAR'} = \&stream_CLEAR;

    # node contains (0: DIRECTIVE,
    #                1: start_index,
    #                2: end_index,
    #                3: parsed tag details,
    #                4: sub tree for block types
    #                5: continuation sub trees for sub continuation block types (elsif, else, etc)
    #                6: flag to capture next directive
    for my $node (@$tree) {
        ### text nodes are just the bare text
        if (! ref $node) {
            print $node if defined $node;
            next;
        }

        print $self->debug_node($node) if $self->{'_debug_dirs'} && ! $self->{'_debug_off'};

        my $out = '';
        $Template::Alloy::Play::DIRECTIVES->{$node->[0]}->($self, $node->[3], $node, \$out);
        print $out;
    }
}

sub stream_CLEAR {
    my ($self, $undef, $node) = @_;
    $self->throw('stream', 'Cannot use CLEAR directive when STREAM is being used', $node);
}

###----------------------------------------------------------------###

1;

__END__