The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<html>
<head>
<title>Tests for Embperl - Embperl sub Metacommand 2</title>
</head>


<body>

[###### sub 1 #####]
[$sub txt1$]
*txt* 
*txt* <h2>Here goes some normal html text <h2>
*txt* 
[$endsub$]

[###### sub 2 #####]
[$sub txt2$]
*txt2* 
*txt2* <h2>Here goes some normal html text <h2>
*txt2* 
[- txt1 -]
*txt2* after txt1
[$endsub$]

[###### sub 3 #####]
[$sub txt3$]
[- txt2 -]
*txt3* after txt3
[$endsub$]

[$sub tabrow $]

<tr><td>[+ $_[0] +]</td></tr>

[$endsub$]

<h1>Tests for Embperl - Embperl sub Metacommand 2</h1>

*1
[- txt1 -]
*2
[- txt2 -]
*3
[- txt1 -]
[- txt2 -]
*4
[- txt1 ; txt2 -]
[- txt1 ; txt2 -]
----> txt3
[- txt3 -]


========================================================

<table>
[- tabrow(1) -]
[$if (1) $]
[- tabrow(2) -]
[$else$]
[- tabrow(3) -]
[$endif$]
[- tabrow(4) -]
-> 5
[- tabrow(5) -]
</table>