input method should be named text()

[perl/html-form-simple.git] / lib / HTML / Form / Simple.pm

diff --git a/lib/HTML/Form/Simple.pm b/lib/HTML/Form/Simple.pm
index 730c41bc25b8c361738b2fa6ec5085856289c1e0..3a58c799761a27e880891e321a7ec375166b75c4 100644 (file)
--- a/lib/HTML/Form/Simple.pm
+++ b/lib/HTML/Form/Simple.pm
@@ -88,7 +88,7 @@ sub hidden {
        return $self->tag(input => $attr);
 }
 
-sub input {
+sub text {
        my $self = shift;
        my ($name, $value, $attr) = $self->_attr(2, @_);