510
510
my $long = exists $self->{opts}->{$opt} ? $opt
511
511
: exists $self->{short_opts}->{$opt} ? $self->{short_opts}->{$opt}
512
512
: die "Getopt::Long gave a nonexistent option: $opt";
514
513
$opt = $self->{opts}->{$long};
515
514
if ( $opt->{is_cumulative} ) {