File Coverage

blib/lib/HTML/Widget/Plugin/Password.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	2	2	100.0
total	31	31	100.0

use strict;
use warnings;
package HTML::Widget::Plugin::Password;
# ABSTRACT: for SECRET input
$HTML::Widget::Plugin::Password::VERSION = '0.202';
use parent 'HTML::Widget::Plugin::Input';

#pod =head1 SYNOPSIS
#pod
#pod   $widget_factory->password({
#pod     id    => 'user_secret',
#pod     value => "not visible in html",
#pod   });
#pod
#pod =head1 DESCRIPTION
#pod
#pod This plugin provides a widget for password-entry inputs.
#pod
#pod =cut

use HTML::Element;

#pod =head1 METHODS
#pod
#pod =head2 C< provided_widgets >
#pod
#pod This plugin provides the following widgets: password
#pod
#pod =cut

sub provided_widgets { [ input => 'password' ] }

#pod =head2 C< password >
#pod
#pod This method returns a password-entry widget.
#pod
#pod In addition to the generic L attributes, the following
#pod are valid arguments:
#pod
#pod =over
#pod
#pod =item value
#pod
#pod This is the widget's initial value.  The value is eaten and displayed as a
#pod series of spaces, if the value is defined.
#pod
#pod =back
#pod
#pod =cut

#pod =head2 C< rewrite_arg >
#pod
#pod The password plugin's rewrite_arg replaces any non-empty value with a string of
#pod spaces so that passwords are not inadvertantly sent as plain text.
#pod
#pod =cut

sub rewrite_arg {
  my ($self, $arg, @rest) = @_;

  $arg = $self->SUPER::rewrite_arg($arg, @rest);

  $arg->{attr}{type} = "password";

  $arg->{attr}{value} = q{ } x 8
    if defined $arg->{attr}{value} and length $arg->{attr}{value};

  return $arg;
}

1;

__END__