package Reaction::UI::Widget::Field; use Reaction::UI::WidgetClass; use namespace::clean -except => [ qw(meta) ]; before fragment widget { if ($_{viewport}->can('value_string')) { arg 'field_value' => $_{viewport}->value_string; } else { arg 'field_value' => ''; #$_{viewport}->value; } }; implements fragment label_fragment { if (my $label = $_{viewport}->label) { arg label => localized $label; render 'label'; } }; __PACKAGE__->meta->make_immutable; 1; __END__; =head1 NAME Reaction::UI::Widget::Field - A simple labelled text field =head1 DESCRIPTION This widget renders a simple labelled text field. =head1 FRAGMENTS =head2 widget Sets the C argument either to the result of the C method on the viewport, or to an empty string if the viewport does not support the method. =head2 label_fragment Will set the C