<%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);
%init>