1<? 2 3my ($content, @title) = @_; 4my $ctx = $main::context; 5 6?> 7? if (@title) { 8.SH <?= uc $title[-1] ?> 9? } 10 11?= $ctx->{unhtmlize}->($content) 12 13? if (my @notes = @{$ctx->{notes}}) { 14.SS Notes: 15.PP 16? for (my $index = 0; $index < @notes; ++$index) { 17[<?= $index + 1 ?>]<?= $notes[$index] ?> 18? } 19? } 20