File Coverage

lib/Async/Template/Document.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	2	0.0
total	33	39	84.6

package Async::Template::Document;

#! @file
#! @author: Serguei Okladnikov
#! @date 23.05.2013

#! This source file have functions `process_enter()` and `process_leave()`.
#! Code parts of them taken from function `process()` of template toolkit
#! library and substantially enhanced, the asynchronous processing
#! is introduced by Serguei Okladnikov
#! Author of that original code parts is Andy Wardley


use strict;
use warnings;
use base 'Template::Document';
use Template::Constants;


#------------------------------------------------------------------------
# process($context)
#
# Process the document in a particular context.  Checks for recursion,
# registers the document with the context via visit(), processes itself,
# and then unwinds with a large gin and tonic.
#------------------------------------------------------------------------

sub process_enter {
    my ($self, $context) = @_;
    my $defblocks = $self->{ _DEFBLOCKS };

    # check we're not already visiting this template
    return $context->throw(Template::Constants::ERROR_FILE,
                           "recursion into '$self->{ name }'")
        if $self->{ _HOT } && ! $context->{ RECURSION };   ## RETURN ##

    $context->visit($self, $defblocks);

    $self->{ _HOT } = 1;
    eval {
        my $block = $self->{ _BLOCK };
        &$block($context);
    };
}

sub process_leave {
    my ($self, $context) = @_;

    $self->{ _HOT } = 0;

    $context->leave();

    die $context->catch($@)
        if $@;

}


1;