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