984
982
my ( $self, $option, $attribs ) = @_;
985
983
my $types = $self->{types};
988
985
. ($attribs->{'short form'} ? '|' . $attribs->{'short form'} : '' )
989
986
. ($attribs->{'negatable'} ? '!' : '' )
990
987
. ($attribs->{'cumulative'} ? '+' : '' )