[- $r = shift ; $r -> config -> output_mode (1) ; $escmode = 12 ; -] Embperl Tests - XHTML output [- $a = 1 -] [$if $a$] a
[$ endif$] [- @c = ([1,"'2'"],['"3"',4]) ; -]
[+ $c[$row][$col] +]
[- %fdat = ( a => 1, b => "'2'", c => '"3"') ; @ffld = sort keys %fdat ; -] [$hidden$] --- NO slashes in the source --- bla --- slashes in the source --- bla