NAME

Text::MicroMason::Embperl - Alternate Syntax like Embperl Templates

SYNOPSIS

Embperl syntax provides several ways to mix Perl into a text template:

    [- my $name = $ARGS{name}; -]
    [$ if $name eq 'Dave' $]
      I'm sorry [+ $name +], I'm afraid I can't do that right now.
    [$ else $]
      [- 
        my $hour = (localtime)[2];
        my $daypart = ( $hour > 11 ) ? 'afternoon' : 'morning'; 
      -]
      Good [+ $daypart +], [+ $name +]!
    [$ endif $]

Instead of using this class directly, pass its name to be mixed in:

    use Text::MicroMason;
    my $mason = Text::MicroMason->new( -Embperl );

Use the execute method to parse and evalute a template:

    print $mason->execute( text=>$template, 'name'=>'Dave' );

Or compile it into a subroutine, and evaluate repeatedly:

    $coderef = $mason->compile( text=>$template );
    print $coderef->('name'=>'Dave');

DESCRIPTION

This subclass replaces MicroMason's normal lexer with one that supports a syntax similar to Embperl.

Compatibility with Embperl

Embperl is a full-featured application server toolkit with many fatures, of which only the templating functionality is emulated.

This is not a drop-in replacement for Embperl, as the implementation is quite different, but it should be able to process some existing templates without major changes.

The following features of HTML::Template syntax are supported:

Square-bracket markup tags

The following syntax features of are not supported:

Dynamic HTML tags

Template Syntax

The following elements are recognized by the Embperl lexer:

[- perl statements -]
Arbitrary Perl code to be executed at this point in the template.
[+ perl expression +]
A Perl expression to be evaluated and included in the output.
[! perl statements !]
Arbitrary Perl code to be executed once when the template is compiled.
[$ name ... $]
Supported command names are: if, elsif, else, endif, foreach, endforeach, while, endwhile, do, until, var.

Private Methods

lex_token

  ( $type, $value ) = $mason->lex_token();

Lexer for [. ... .] tags.

Attempts to parse a token from the template text stored in the global $_ and returns a token type and value. Returns an empty list if unable to parse further due to an error.

assembler_rules()

Adds mappings from command names used in [$ ... $] tokens to the equivalent Perl syntax.

  %syntax_rules = $mason->assembler_rules();

CPAN RT