reset field

dhoss · Aug 30, 2009 · 490985e · 490985e
1 parent beb1931
commit 490985e
Show file tree

Hide file tree

Showing 4 changed files with 54 additions and 315 deletions.
diff --git a/lib/HTML/FormHandler/Field/Reset.pm b/lib/HTML/FormHandler/Field/Reset.pm
@@ -0,0 +1,24 @@
+package HTML::FormHandler::Field::Reset;
+
+use Moose;
+extends 'HTML::FormHandler::Field::Display';
+
+=head1 NAME
+
+HTML::FormHandler::Field::Reset - reset field
+
+=head1 SYNOPSIS
+
+Use this field to declare a reset field in your form.
+
+   has_field 'reset' => ( type => 'Reset', value => 'Restore' );
+
+Uses the 'reset' widget.
+
+=cut
+
+has '+value' => ( default => 'Reset' );
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+1;
diff --git a/lib/HTML/FormHandler/Render/Result.pm b/lib/HTML/FormHandler/Render/Result.pm
diff --git a/lib/HTML/FormHandler/Render/Simple.pm b/lib/HTML/FormHandler/Render/Simple.pm
@@ -366,6 +366,17 @@ sub render_submit
    return $output;
 }
 
+sub render_reset
+{
+   my ( $self, $field ) = @_;
+
+   my $output = '<input type="reset" name="';
+   $output .= $field->html_name . '"';
+   $output .= ' id="' . $field->id . '"';
+   $output .= ' value="' . $field->value . '" />';
+   return $output;
+}
+
 =head1 AUTHORS
 
 See CONTRIBUTORS in L<HTML::FormHandler>

diff --git a/lib/HTML/FormHandler/Widget/Field/Reset.pm b/lib/HTML/FormHandler/Widget/Field/Reset.pm
@@ -0,0 +1,19 @@
+package HTML::FormHandler::Widget::Field::Reset;
+
+use Moose::Role;
+
+has 'no_render_label' => ( is => 'ro', lazy => 1, default => 1 );
+
+sub render
+{
+   my ( $self, $result ) = @_;
+
+   $result ||= $self->result;
+   my $output = '<input type="reset" name="';
+   $output .= $self->html_name . '"';
+   $output .= ' id="' . $self->id . '"';
+   $output .= ' value="' . $self->value . '" />';
+   return $self->wrap_field($result, $output);
+}
+
+1;