Data-MuForm

 view release on metacpan or  search on metacpan

lib/Data/MuForm/Renderer/Base.pm  view on Meta::CPAN

714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
 
sub wrapper_fieldset {
    my ( $self, $rargs, $rendered ) = @_;
 
    my $id = $rargs->{id} if ($rargs->{is_compound});
    my $label = $self->localize($rargs->{label});
    my $out = qq{\n<fieldset };
    $out .= qq{id="$id" } if $id;
    $out .= process_attrs($rargs->{wrapper_attr});
    $out .= qq{>};
    $out .= qq{<legend class="label">$label</legend>};
    $out .= $rendered;
    $out .= qq{\n</fieldset>};
    return $out;
}
 
sub element_wrapper {
    my ( $self, $rargs, $rendered ) = @_;
    my $out = qq{\n<div };
    $out .= process_attrs($rargs->{element_wrapper_attr});
    $out .= qq{>$rendered</div>};

t/render/standard.t  view on Meta::CPAN

74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
    has_field 'boxed' => ( 'ra.wrapper' => 'fieldset', 'ra.wa.class' => 'boxed' );
    has_field 'element_wrapper_field' => ( element_wrapper_class => 'large' );
 
}
 
my $form = Test::Form->new;
ok( $form, 'create form' );
 
# repeatable with 'contains'
my $expected = q{
<fieldset id="hobbies"><legend class="label">Hobbies</legend>
  <div>
    <input id="hobbies.0" name="hobbies.0" type="text" value="" />
  </div>
</fieldset>
};
is_html( $form->field('hobbies')->render, $expected, 'output from repeatable with num_when_empty == 1'
);
 
my $params = {
    test_field         => 'something',

t/render/standard.t  view on Meta::CPAN

163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
$expected = q{
<div>
  <label for="selected">Selected<input checked="checked" id="selected" name="selected" type="checkbox" value="1" /></label>
</div>
};
is_html( $rendered, $expected, 'output from boolean'
);
 
$rendered = $form->field('start_date')->render;
$expected = q{
<fieldset id="start_date"><legend class="label">Start date</legend>
  <div>
    <label for="start_date.month">Month</label>
    <input type="text" name="start_date.month" id="start_date.month" size="8" value="7" />
  </div>
  <div>
    <label for="start_date.day">Day</label>
    <input type="text" name="start_date.day" id="start_date.day" size="8" value="14" />
  </div>
  <div>
    <label for="start_date.year">Year</label>

t/render/standard.t  view on Meta::CPAN

202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
$rendered = $form->render_start;
is_html( $rendered,
'<form id="testform" method="post">',
'Form start OK'
);
 
 
$rendered = $form->field('hobbies')->render;
 
$expected = q{
<fieldset id="hobbies"><legend class="label">Hobbies</legend>
  <div>
    <input id="hobbies.0" name="hobbies.0" type="text" value="eating" />
  </div>
  <div>
    <input id="hobbies.1" name="hobbies.1" type="text" value="sleeping" />
  </div>
  <div>
    <input id="hobbies.2" name="hobbies.2" type="text" value="not chasing mice" />
  </div>
</fieldset>
};
 
is_html($rendered, $expected, 'hobbies compound field render ok');
 
is_html( $form->field('plain')->render, '<input type="text" name="plain" id="plain" value="No divs!!" />', 'renders without wrapper');
 
 
is_html( $form->field('boxed')->render,
'<fieldset class="boxed"><legend class="label">Boxed</legend>
  <input type="text" name="boxed" id="boxed" value="Testing single fieldset" />
</fieldset>', 'fieldset wrapper renders' );
 
=comment
# TODO - element_wrapper... sigh
is_html( $form->field('element_wrapper_field')->render,
'<div>
  <label for="element_wrapper_field">Element wrapper field</label>
  <div class="large">
    <input id="element_wrapper_field" name="element_wrapper_field" type="text" value="" />