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;
	    PROCESS example/source
		file = "$dir/$n";
	END;
	WRAPPER html/row;
	    PROCESS example/output;
	END;
	INCLUDE example/break colspan=2 UNLESS loop.last;
    END
%]
</table>