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";
    USE     table([ from..to ], rows=2) 
%]

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