1package BookDB::Form::Widget::Wrapper::Para; 2 3use Moose::Role; 4with 'HTML::FormHandler::Widget::Wrapper::Base'; 5 6sub wrap_field 7{ 8 my ( $self, $result, $rendered_widget ) = @_; 9 10 my $class = $self->render_class( $result ); 11 my $output = qq{\n<p $class>}; 12 if ( $self->has_flag('is_compound' ) ) { 13 $output .= '<fieldset class="' . $self->html_name . '">'; 14 $output .= '<legend>' . $self->label . '</legend>'; 15 } 16 elsif ( !$self->has_flag('no_render_label') && $self->label ) { 17 $output .= $self->render_label; 18 } 19 $output .= $rendered_widget; 20 $output .= qq{\n<span class="error_message">$_</span>} for $result->all_errors; 21 if ( $self->has_flag( 'is_compound' ) ) { 22 $output .= '</fieldset>'; 23 } 24 $output .= "</p>\n"; 25 return $output; 26} 27 28no Moose::Role; 291; 30