The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% # $Id: struct,v 1.2 2004/12/05 11:57:46 jv Exp $ -%]
[%

WRAPPER table/row;
    INCLUDE table/head content=key;
    WRAPPER table/cell;
	IF val.keys;
	    INCLUDE debug/hash hash=val;
	ELSIF val.0 != "";
	    INCLUDE debug/array array=val;
	ELSE;
	    val;
	END;
    END;
END;

-%]