view release on metacpan or  search on metacpan

t/lib/BookDB/Form/Widget/Wrapper/Para.pm  view on Meta::CPAN

with 'HTML::FormHandler::Widget::Wrapper::Base';

sub wrap_field
{
   my ( $self, $result, $rendered_widget ) = @_;

   my $class = $self->render_class( $result );
   my $output = qq{\n<p $class>};
   if ( $self->has_flag('is_compound' ) ) {
      $output .= '<fieldset class="' . $self->html_name . '">';
      $output .= '<legend>' . $self->label . '</legend>';
   }
   elsif ( !$self->has_flag('no_render_label') && $self->label ) {
      $output .= $self->render_label;
   }
   $output .= $rendered_widget;
   $output .= qq{\n<span class="error_message">$_</span>} for $result->all_errors;
   if ( $self->has_flag( 'is_compound' ) ) {
      $output .= '</fieldset>';
   }
   $output .= "</p>\n";