The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Form::Renderer::Test;
use base 'Form::Renderer';

sub render {
    my ($self, $form) = @_;
    join "\n", map {
        $_->name.": ".$_->type.($_->_validation ?
            ": ".$_->_validation->{javascript} : "");
    } @{$form->fields}
}
1;