The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[%  # splash/frame: a frame with an optional border
    #
    #  ARGS: content, style
    # STYLE: col, bgcol, align, width
    #
    SET
        default = splash.style.default
    ;
    DEFAULT 
        style   = default
        col     = style.col.edge     or default.col.edge
        bgcol   = style.col.fill     or default.col.fill
        align   = style.frame.align  or default.frame.align
    ;
    SET
    border  = border.defined ? border 
                     : style.border.defined ? style.border
                                    : default.border
        rgbfore = splash.rgb.$col
        rgbback = splash.rgb.$bgcol
        imgbase = "$splash.images/$bgcol"
        imgsize = splash.imgsize
        imgtype = splash.imgtype
    ;
-%]
<!-- tt2.splash.frame -->  
[%  IF border;
        WRAPPER html/table + html/row + html/cell
            col    = rgbfore
            border = 0
            space  = border
            pad    = 0  
            ;
            INCLUDE html/table
                col    = rgbback
                width  = width ? '100%' : ''
                border = 0
                space  = 0
            ;
        END;
    ELSE;
        INCLUDE html/table
                col    = rgbback
            border = 0
            space  = 0
        ;
    END
%]
<!-- /tt2.splash.frame -->