-
-unless ($password) {
- my $generator = String::Random->new( rand_gen => \&alt_rand );
- my $n = $patron->category->effective_min_password_length;
- $n = $n<6?6:$n;
- $password = $generator->randregex('[A-Za-z][A-Za-z0-9_]{6}.[A-Za-z][A-Za-z0-9_]{'.$n.'}\d');
-}
-