—
—

              
package HTML::FormHandler::Field::Radio;
use Moose;
extends 'HTML::FormHandler::Field';
HideShow 24 lines of Pod
=head1 NAME
HTML::FormHandler::Field::Radio
=head1 SYNOPSIS
This field is not currently used. Placeholder for possible future
atomic radio buttons.
  <label class="label" for="[% field.name %]">[% field.label</label>
  <input name="[% field.name %]" type="radio"
    value="[% field.radio_value %]"
    [% IF field.fif == field.radio_value %]
       select="selected"
    [% END %]
   />  
=head2 radio_value
   
See synopsis. Sets the value used in the radio button.
=cut
has 'radio_value' => ( is => 'rw', default => 1 );
has '+widget' => ( default => 'radio' );
HideShow 11 lines of Pod
=head1 AUTHORS
Gerda Shank
=head1 COPYRIGHT
This library is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
__PACKAGE__->meta->make_immutable;
no Moose;
1;