<%init> my $id = shift; my $label = shift || 'Generate';