NAME

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

SYNOPSIS

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

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

Use the standard compile and execute methods to parse and evaluate templates:

  print $mason->compile( text=>$template )->( @%args );
  print $mason->execute( text=>$template, @args );

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 $]

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 EmbPerl 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.