The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[%  THROW   examples 'library is not defined' UNLESS library ;
    THROW   examples 'section is not defined' UNLESS section ; 
    DEFAULT count = 0  from = 1  to = count;
    SET     dir   = "examples/$library.name/$section" ;
%]

<table border=0 width="100%">
[%  FOREACH n = [ from..to ];
	WRAPPER html/row valign='top';
	    PROCESS example/source + example/html 
		file = "$dir/$n";
	END;
	INCLUDE example/break colspan=2 UNLESS loop.last;
    END
%]
</table>