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 e2a586d51987dc2914ea1b4c154caf2fff2dece7..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, @_);
 
@@ -210,7 +210,7 @@ sub check {
 
 =head1 NAME
 
-HTML::Form::Simple
+HTML::Form::Simple - Generate HTML form elements
 
 =head1 SYNOPSIS
 
@@ -235,3 +235,12 @@ HTML::Form::Simple
        );
        say $input->stop; # </form>
 
+=head1 AUTHOR
+
+Mischa POSLAWSKY <perl@shiar.org>
+
+=head1 LICENSE
+
+This module is free software; you can redistribute it and/or modify it
+under the same L<terms|perlartistic> as Perl itself.
+