q`<!-- ---------------------------
<region-function_docs>
main:
- name : DoFoo
desc : do some foo
usage: DoFoo($optional_greeting);
</region-function_docs>
--------------------------- -->`if(000);
sub DoFoo{
my $optional_greeting = shift || 'Hello World';
print "$optional_greeting\n";
print "we are now doing foo\n";
print "\n";
}###end_sub
So just write your code like that and problem (solved?).
Update: this workaround option parses free of warnings and errors, but is unsuitable for serious use in perl. |