Tests for Embperl - Embperl sub Metacommand
Now we call the first sub via Execute:
*txt* 
*txt* Here goes some normal html text 
*txt* 
And now the second via Execute:
*perl_code* 
*perl_code* Here comes some perl:
*perl_code* 
*perl_code* *perl_code* 
*perl_code* foo = Hello world
*perl_code* testdata = abcd
*perl_code* 
Now we call the first sub via Perl:
*txt* 
*txt* Here goes some normal html text 
*txt* 
And now the second via Perl:
*perl_code* 
*perl_code* Here comes some perl:
*perl_code* 
*perl_code* *perl_code* 
*perl_code* foo = Hello world
*perl_code* testdata = abcd
*perl_code* 
-> Second time, other order:
And now the second via Perl:
*perl_code* 
*perl_code* Here comes some perl:
*perl_code* 
*perl_code* *perl_code* 
*perl_code* foo = Hello world
*perl_code* testdata = abcd
*perl_code* 
Now we call the first sub via Perl:
*txt* 
*txt* Here goes some normal html text 
*txt* 
-> And Execute again, but other order
And now the second via Execute:
*perl_code* 
*perl_code* Here comes some perl:
*perl_code* 
*perl_code* *perl_code* 
*perl_code* foo = Hello world
*perl_code* testdata = abcd
*perl_code* 
Now we call the first sub via Execute:
*txt* 
*txt* Here goes some normal html text 
*txt* 
And done!