/lib/HTML/FormHandler/Field/NoValue.pm
http://github.com/gshank/html-formhandler · Perl · 63 lines · 47 code · 14 blank · 2 comment · 4 complexity · b13247b5faedb3d0295ff5625723f4d0 MD5 · raw file
- package HTML::FormHandler::Field::NoValue;
- # ABSTRACT: base class for submit field
- use Moose;
- extends 'HTML::FormHandler::Field';
- =head1 SYNOPSIS
- This is the base class for the Submit & Reset fields. It can be used for fields that
- do not produce valid 'values'. It should not be used for fields that
- produce a value or need validating.
- =cut
- has 'html' => ( is => 'rw', isa => 'Str', default => '' );
- has 'value' => (
- is => 'rw',
- predicate => 'has_value',
- clearer => 'clear_value',
- );
- sub _result_from_fields {
- my ( $self, $result ) = @_;
- my $value = $self->get_default_value;
- if ( $value ) {
- $self->value($value);
- }
- $self->_set_result($result);
- $result->_set_field_def($self);
- return $result;
- }
- sub _result_from_input {
- my ( $self, $result, $input, $exists ) = @_;
- $self->_set_result($result);
- $result->_set_field_def($self);
- return $result;
- }
- sub _result_from_object {
- my ( $self, $result, $value ) = @_;
- $self->_set_result($result);
- $result->_set_field_def($self);
- return $result;
- }
- sub fif { }
- has '+widget' => ( default => '' );
- has '+noupdate' => ( default => 1 );
- sub validate_field { }
- #sub clear_value { }
- sub render {
- my $self = shift;
- return $self->html;
- }
- __PACKAGE__->meta->make_immutable;
- use namespace::autoclean;
- 1;