NAME<\/a> Data::Password::Meter \u2212 Check the strength of passwords<\/p>\n my $pwdm = Data::Password::Meter\u2212>new(28); Check the strength of a password. The scoring is based on Passwordmeter err<\/b> The error code of the last check. Returns a “false” value, if the last check was successful.<\/p>\n errstr<\/b> The error string of the last check, or, in case an error code is passed, the corresponding message. Returns an empty string, if the last check was successful.<\/p>\n score<\/b> The score of the last check.<\/p>\n threshold<\/b> The scoring threshold, the determining factor when a password is too weak. Every password that is below this threshold is considered weak. Defaults to a score of 25.<\/p>\n new<\/b> Constructs a new password check object. Accepts an optional value for the threshold.<\/p>\n strong<\/b> Checks a password for strength. Returns a false value in case the password is considered to be weak.<\/p>\n Possible error codes and strings are:<\/p>\n
SYNOPSIS<\/a>
DESCRIPTION<\/a>
ATTRIBUTES<\/a>
METHODS<\/a>
ERROR MESSAGES<\/a>
DEPENDENCIES<\/a>
AVAILABILITY<\/a>
COPYRIGHT AND LICENSE<\/a> <\/p>\n
\nNAME <\/a> <\/h2>\n
SYNOPSIS <\/a> <\/h2>\n
# Check a password
if ($pwdm\u2212>strong(‘s3cur3\u2212p4ssw0rd’)) {
print “The password is strong enough!n”;
print ‘Scored ‘ . $pwdm\u2212>score . ‘ points!’;
}
else {
warn $pwdm\u2212>errstr;
};<\/p>\nDESCRIPTION <\/a> <\/h2>\n
ATTRIBUTES <\/a> <\/h2>\n
print $pwdm\u2212>err;<\/p>\n
print $pwdm\u2212>errstr;
print $pwdm\u2212>errstr(4);<\/p>\n
print $pwdm\u2212>score;<\/p>\n
print $pwdm\u2212>threshold;
$pwdm\u2212>threshold(28);<\/p>\nMETHODS <\/a> <\/h2>\n
my $pwd = Data::Password::Meter\u2212>new(28);<\/p>\n
if ($pwdm\u2212>strong(‘mypassword’)) {
print ‘This password is strong!’;
}
else {
print ‘This password is weak!’;
};<\/p>\nERROR MESSAGES <\/a> <\/h2>\n