504
504
my $long = exists $self->{opts}->{$opt} ? $opt
505
505
: exists $self->{short_opts}->{$opt} ? $self->{short_opts}->{$opt}
506
506
: die "Getopt::Long gave a nonexistent option: $opt";
508
507
$opt = $self->{opts}->{$long};
509
508
if ( $opt->{is_cumulative} ) {