The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -w
; use strict
; use Test::More tests => 1
; use Template::Magic

; chdir './t'
; our ( $tm
      , $scalar_test
      , $content
      )
; $tm = new  Template::Magic
; $scalar_test = 'SCALAR'
; $content = $tm->output('template_test_02')
; is ( $$content
     , 'text from template SCALAR, end text.'
     )