view release on metacpan or  search on metacpan

lib/Bricklayer/Templater/Sequencer.pm  view on Meta::CPAN

}

=head2 return_parsed

returns a string with the replacement text for a parsed token

=cut


# returns a string with the replacement text for the parsed token
sub return_parsed($$$$) {
    my $Self = shift;
    my $Env = shift;
    my $Parameters = shift;
    my $handler_loc = shift;
    
    parse_tokens($Self, $Env, $Parameters, $handler_loc);
    return; 
}

=head2 parse_tokens

actually runs through the list of tokens and loades the handler or retrieves it from the handler cache to run.

=cut

sub parse_tokens($$$$) {
    my $TokenList = shift;
    my $App = shift;
    my $Parameters = shift;
    my $handler_loc = shift;
    my $ParsedText;
    my $tokenCount = scalar(@$TokenList);
    my $loopCount = 0;
    foreach my $Token (@$TokenList) {
        # we are dynamically loading our handlers here
        # using symbolic references and a little perl magic