<%init> my $id = shift; my $label = shift || 'Generate'; my $submitid = shift; my $pw_set = join('', FS::Password_Mixin->pw_set); my $lower = join('', $pw_set =~ /[[:lower:]]/g); my $upper = join('', $pw_set =~ /[[:upper:]]/g); my $digit = join('', $pw_set =~ /[[:digit:]]/g); my $punct = join('', $pw_set =~ /[[:punct:]]/g);