File Coverage

lib/HTML/FormWidgets/Password.pm

Criterion	Covered	Total	%
statement	27	32	84.3
branch	4	8	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	38	47	80.8

package HTML::FormWidgets::Password;

use strict;
use warnings;
use parent 'HTML::FormWidgets';

__PACKAGE__->mk_accessors( qw( subtype width ) );

my $NBSP = ' ';

sub init {
   my ($self, $args) = @_;

   $self->subtype( 'normal' );
   $self->width  ( 20       );
   return;
}


sub render_field {
   my ($self, $args) = @_;

   my $hacc        =  $self->hacc;
   my $subtype     =  $self->subtype;
   my $reveal      =  $subtype =~ m{ reveal }msx ? 1 : 0;

   if ($reveal) {
      my $id2      =  $args->{id}; $id2 =~ s{ 1 }{2}mx;
      my $options  = { event  => "[ 'focus', 'blur' ]",
                       method => "[ 'show_password', 'hide_password' ]" };

      $self->add_literal_js( 'inputs', $self->id, $options );
      $self->add_literal_js( 'inputs', $id2, $options );
   }

   $args->{class} .=  ' ifield'.($reveal ? ' reveal' : q());
   $args->{size }  =  $self->width;

   my $html        =  $hacc->password_field( $args );

   $subtype        =~ m{ verify }msx or return $html;
   $html          .=  $hacc->span( { class => 'prompt' },
                                   $NBSP.$self->loc( 'and again' ).$NBSP );
   $args->{name}   =~ s{ 1 }{2}mx; $args->{id} =~ s{ 1 }{2}mx;
   $html          .=  $hacc->password_field( $args );
   return $html;
}

1;

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