The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<start_html lang="en-US" title="blocks">
<p>

<block name="invisible0">
SHOULD NOT DISPLAY 0
</block>
<block name="hello0" display=1>
Hello World 0
</block>

<p>

<perl method="hello1">
<block name="hello1">
Hello World 1
</block>
<block name="invisible1">
SHOULD NOT DISPLAY 1
</block>
</perl>

<p>

<perl method="hello2">
<block name="hello2">
Hello World 2
</block>
<block name="hello2">
Hello World 2 Again
</block>
</perl>

<p>

<perl method="hello3">
<block name="hello3">
Hello World 3
</block>
</perl>
<block name="hello3">
SHOULD NOT DISPLAY 3
</block>

<p>


<block name="hello4">
SHOULD NOT DISPLAY 4
</block>
<perl method="hello4"/>
<block name="hello4">
Hello World 4
</block>
<block name="hello4">
Hello World 4 Again
</block>

<end_html>
__PERL__

sub hello1 {
	my $s=shift();
	$s->render_block('hello1');
	$s->render();
}

sub hello2 {
	my $s=shift();
	$s->render_block('hello2');
	$s->render();
}

sub hello3 {
	my $s=shift();
	$s->render_block('hello3');
	$s->render();
}

sub hello4 {
	my $s=shift();
	$s->render_block('hello4');
}