package HTML::FormWidgets::Password;

# @(#)$Id: Password.pm 14 2008-03-02 17:57:44Z pjf $

use strict;
use warnings;
use base qw(HTML::FormWidgets);

use version; our $VERSION = qv( sprintf '0.1.%d', q$Rev: 14 $ =~ /\d+/gmx );

sub _render {
   my ($me, $ref) = @_; my $text;

   $ref->{size} = $me->width || 20;
   $text        = $me->elem->password_field( $ref );

   return $text unless ($me->subtype && $me->subtype eq q(verify));

   $text .= $me->msg( q(vPasswordPrompt) );
   $ref->{name} =~ s{ 1 }{2}mx; $ref->{id} =~ s{ 1 }{2}mx;
   $text .= $me->elem->password_field( $ref );
   return $text;
}

1;

# Local Variables:
# mode: perl
# tab-width: 3
# End: