XHTML results from the CPAN

Maypole-FormBuilder

    
    return @forms;    
}    

=item render_form_as_row( $form )

Returns a form marked up as a single row for a table. 

This will probably get converted to a template some time. 

Yes, it's bad XHTML - suggestions about how to do this legally would be good.

=cut
    
# chopped out of CGI::FormBuilder::render()
# XXX - maybe better implemented as a post-processor now
sub render_form_as_row
{
    my ( $r, $form ) = @_;
    
    my $font = $form->font;

templates-mason/factory/header view on Meta::CPAN

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <title><% $config->{application_name} || "A Maypole application" %></title>
    <meta http-equiv="Content-Type" content="text/html; charset=<% $request->document_encoding %>"/>
    <link href="<% $base %>/css/maypole.css" type="text/css" rel="stylesheet" />
    <& custom_css &>
</head>
<body>
<div class="content">

templates-tt/factory/header view on Meta::CPAN

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <title>[% config.application_name || "A Maypole application" %]</title>
    <meta http-equiv="Content-Type" content="text/html; charset=[% request.document_encoding %]"/>
    <link href="[% base %]/css/maypole.css" type="text/css" rel="stylesheet" />
    [% INCLUDE custom_css %]
</head>
<body>
<div class="content">

( run in 0.238 second using v1.01-cache-2.11-cpan-26ccb49234f )