The test of HTML::EmbeddedPerl(BETA)

(source-code is visible green)

 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{$_}<br />\n"; //29
} //30
GATEWAY_INTERFACE: CGI/1.1
QUERY_STRING:
REDIRECT_HANDLER: application/x-embeddedperl-test
REDIRECT_STATUS: 200
REQUEST_METHOD: GET
SERVER_PORT: 80
SERVER_PROTOCOL: HTTP/1.1
SERVER_SIGNATURE:
Apache

SERVER_SOFTWARE: Apache

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

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

$qqq = OK.

 @xxx = ("a".."c"); #50 
<@=xxx><p>$_</p>\n</@>

a

b

c

@xxx = a b c

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

@{$zzz{a}} = 1 2 3

@{$zzz{b}} = 4 5 6

 $flg = 1; #69 
<!=$flg><p>1</p><!=!$flg><p>0</p><!><p>?</p></!>

1

 $ep->print(ref($ep)); #74 
HTML::EmbeddedPerl

 $ep->print(ref($ev)); #78 
HTML::EmbeddedPerl::Vars

define subroutine.

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

 &test_print; /* 87 */ 
OK.

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

 $ep->header_out('Content-Create','foo'); /* 93 */ 
Apache