Jeremy Wall
and 1 contributors


    Bricklayer::Templater::Parser - The parsing engine for Bricklayer::Templater



Bricklayer::Templater::Parser - A generic parsing module.


use Bricklayer::Templater::Parser;

my $template_text; my $start_tag_prefix; my $end_tag_prefix;

my @tokens = Template::Parser::parse_text($template_text,$start_tag_prefix,$end_tag_prefix);


Perl 5.8 Exporter


The parser package has a simple and single job to do, and that is to take a block of text and turn it into an ordered array of tokens containing either a text block or a single tag or tag block. Each token will contain both the block and a flag noting what kind of token it is (text, tag_block or tag). The package then returns the array.



The parse_text() function takes the template text, a start tag prefix, and an end tag prefix, parses the appropriate tags and returns a token tree in the form of an array of hashes, each hash with a variable number of elements, depending on its type.

For Example:

    %text_token = (
                    type => "text", 
                    block => $block,    
    %block_tag_token = (
                    type => "block_tag", 
                    tagname => $tagname,
                    block => $block,
                    attributes => \%attributes,
    %tag_token = (
                    type => "tag", 
                    tagname => $tagname,
                    attributes => \%attributes,

The attributes value is a reference to an attributes hash in the form of:

    %attributes = (
                                "attribute_name" => "attribute_value",

Further Notes: The token tree returned by parse_text is not recursive, thus the tags inside a tag_block will not be processed, and you will need to call the parse_text() function again when dealing with those tags.

To build a complete tree, call the parse_text() function iteratively like so:

        sub parse {
                my $template_text = shift;
                my $start_tag_prefix = shift;
                my $end_tag_prefix = shift;
                my @token_tree;
    my @tokens = Parser::parse_text($template_text,$start_tag_prefix,$end_tag_prefix);
    foreach my $token (@tokens) {
        if ($token->{type} eq 'block_tag') {
            my @sub_tokens;
            @sub_tokens = parse($token->{block},$start_tag_prefix,$end_tag_prefix);
            $token->{block} = \@sub_tokens;
        push @token_tree, $token;
    return @token_tree;


parses the tag attributes


trims whitespace for us


(c) 2004 Jason Wall, <>, (c) 2004 Jeremy Wall, <>,