## The test of HTML::EmbeddedPerl(BETA)

(source-code is visible green)

> use vars qw($qqq @xxx %zzz $flg); $qqq = "OK.";

> /*
> 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:
REQUEST_METHOD: GET
SERVER_PROTOCOL: HTTP/1.1
SERVER_SIGNATURE:
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>$k0</th><\@v0><td>$_</td></@></tr>\n</%>

a | 1 | 2 | 3
b | 4 | 5 | 6

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

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

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

# not comment

> <=$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->header_out('Content-Create','foo'); /* 91 */

Apache