File Coverage

blib/lib/Form/Processor/Field/EnterPassword.pm
Criterion Covered Total %
statement 10 13 76.9
branch n/a
condition n/a
subroutine 4 7 57.1
pod 2 4 50.0
total 16 24 66.6


line stmt bran cond sub pod time code
1             package Form::Processor::Field::EnterPassword;
2             $Form::Processor::Field::EnterPassword::VERSION = '1.162360';
3 1     1   4 use strict;
  1         1  
  1         21  
4 1     1   2 use warnings;
  1         1  
  1         18  
5 1     1   2 use base 'Form::Processor::Field::Text';
  1         1  
  1         337  
6              
7 0     0 1 0 sub init_widget { return 'password' }
8 0     0 0 0 sub init_password { return 1 } # Don't pre-populate the field.
9 1     1 0 10 sub init_size { return 160 } # If someone wants a 160 char password, that's up to them.
10 0     0 1   sub required_message { return 'Please enter a password in this field' }
11              
12              
13             # ABSTRACT: Input a password
14              
15              
16             1;
17              
18             __END__