Tests for Embperl - Embperl sub Metacommand

[###### first sub #####] [$sub txt$]

## Here goes some normal html text

## [$endsub$] [###### second sub #####] [$sub perl_code $] Here comes some perl: [- $foo = 'Hello world' -] foo = [+ $foo +]
testdata = [+ $testdata +]
[$endsub$] [###### main page #####]

# Tests for Embperl - Embperl sub Metacommand

[- $testdata = 'abcd' -] Now we call the first sub via Execute: [- Execute ('#txt') -] And now the second via Execute: [- Execute ('#perl_code') -] Now we call the first sub via Perl: [- txt -] And now the second via Perl: [- perl_code -] And done!