The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% USE Latex -%]
[%- MACRO latextable(d)
    BLOCK;
	tattr = {
	    header = [ d.cols ],
	    data   = d.data,
	};
	copyattr = [ 'caption', 'label', 'left', 'right', 'center', 'fontfamily', 'sideways', 'type', 'callback' ];
	FOREACH ca IN copyattr;
	    IF d.$ca;
		tattr.$ca = d.$ca;
	    END;
	END;
       Latex.table( tattr );
    END -%]