File Coverage

blib/lib/Form/Processor/Field/Password.pm

Criterion	Covered	Total	%
statement	21	24	87.5
branch	10	12	83.3
condition	2	3	66.6
subroutine	5	8	62.5
pod	3	5	60.0
total	41	52	78.8

package Form::Processor::Field::Password;
$Form::Processor::Field::Password::VERSION = '1.162360';
use strict;
use warnings;
use base 'Form::Processor::Field::Text';

# use Data::Password ();
#


sub init_widget     { return 'password' }
sub init_min_length { return 6 }
sub init_password   { return 1 }



sub validate {
    my $self = shift;

    return unless $self->SUPER::validate;

    my $value = $self->input;

    return $self->add_error( 'Passwords must not contain spaces' )
        if $value =~ /\s/;

    return $self->add_error( 'Passwords must be made up from letters, digits, or the underscore' )
        if $value =~ /\W/;

    #return $self->add_error( 'Passwords must include one or more digits' )
    #    unless $value =~ /\d/;

    return $self->add_error( 'Passwords must not be all digits' )
        if $value =~ /^\d+$/;




    # This is too strcit.
    # Need to make sure it doesn't match login
    # my $msg = Data::Password::IsBadPassword( $self->input );
    #return $self->SUPER::validate unless $msg;
    #$self->add_error( $msg );

    # So hack it.
    my $params = $self->form->params;

    for ( qw/ login username / ) {
        next if $self->name eq $_;

        return $self->add_error( 'Password must not match ' . $_ )
            if $params->{$_} && $params->{$_} eq $value;
    }

    return 1;


}

sub required_message { return 'Please enter a password in this field' }


# ABSTRACT: Input a password




1;

__END__