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" );