The test of HTML::EmbeddedPerl(BETA)

ModPerl

<$ use vars qw($qqq @xxx %zzz $flg); $qqq = "OK."; #13 no strict; no warnings; $>

<$ /* comment 18 comment 19 comment 20 comment 21 comment 22 comment 23 comment 24 comment 25 comment 26 */ foreach(sort keys %ENV){ //28 print STDOUT "$_: $ENV{$_}
\n"; //29 } //30 $>


<$ $ep->print(<<__EOP__); /* comments 36 */
// comments 37
# comments 38
__EOP__ /*39*/ $>


<$ $ep->print("# $qqq"); #44 $>

\$qqq = $qqq


<$ @xxx = ("a".."c"); #50 $> <@=xxx>

$_

\n

\@xxx = @xxx


<$ %zzz = ("a"=>[1,2,3],"b"=>[4,5,6]); #58 $> <%=zzz><@={v}>\n
$k$_

\@\{\$zzz{a}\} = @{$zzz{a}}

\@\{\$zzz{b}\} = @{$zzz{b}}


<$ $flg = 1; print "# not comment
\n"; # 69 $>

1

0

?


<$ $ep->print(ref($ep)); #74 $>


<$ $ep->print(ref($ev)); #78 $>


define subroutine.

<$ sub test_print{ $ep->print('OK.'); } //83 $>

<$ &test_print; /* 87 */ $>


<$ $ep->print('test'); //91 $>

<$ $ep->header_out('Content-Create','foo'); /* 93 */ $>
$ENV{SERVER_SOFTWARE}