#!perl -w

; use strict
; use Test::More tests => 2
; use Template::Magic

; our ( $tm1
      , $tm2
      , $name
      , $surname
      , $content
      , $tmp
      )
; $tm1 = new Template::Magic
             markers => 'HTML'
; $tm2 = new Template::Magic
             markers => [ qw|<!--{ / }-->|
                        ]

; $tmp = '<p><hr>Name: <b><!--{name}-->John<!--{/name}--></b><br>Surname: <b><!--{surname}-->Smith<!--{/surname}--></b><hr></p>'

; $name = 'Domizio'
; $surname = 'Demichelis'

; $content = $tm2->output(\$tmp)

; is( $$content
    , '<p><hr>Name: <b>Domizio</b><br>Surname: <b>Demichelis</b><hr></p>'
    )

; $content = $tm1->output(\$tmp);

; is( $$content
    , '<p><hr>Name: <b>Domizio</b><br>Surname: <b>Demichelis</b><hr></p>'
    )