use Text::MicroMason::Functions qw( execute );
$template = "bar <% $ARGS{var1} %> foo <% $ARGS{var2} %> bar BAAAR!";
$output = execute( $template, var1=>"Guybrush", var2=>"Purcell" );
####
use Text::MicroMason::Functions qw( compile );
$template = "bar <% $ARGS{var1} %> foo <% $ARGS{var2} %> bar BAAAR!";
$subroutine = compile( $template );
$output = $subroutine->( var1=>"Guybrush", var2=>"Purcell" );
####
use Text::MicroMason;
$interpreter = Text::MicroMason->new();
$template = "bar <% $ARGS{var1} %> foo <% $ARGS{var2} %> bar BAAAR!";
$subroutine = $interpreter->compile( $template );
$output = $subroutine->( var1=>"Guybrush", var2=>"Purcell" );
####
use Text::MicroMason;
$interpreter = Text::MicroMason->new( -TextTemplate );
$template = "bar { $var1 } foo { $var2 } bar BAAAR!";
$subroutine = $interpreter->compile( $template );
$output = $subroutine->( var1=>"Guybrush", var2=>"Purcell" );
####
use Text::MicroMason;
$interpreter = Text::MicroMason->new( -HTMLTemplate );
$template = "bar foo bar BAAAR!";
$subroutine = $interpreter->compile( $template );
$output = $subroutine->( var1=>"Guybrush", var2=>"Purcell" );