my $getopt = defined $params{getopt}
? $params{getopt}
: $class->_default_getopt_session->new(
- classes_filter => sub { $_ eq $class }
+ classes_filter => sub { $_ eq $class },
+ params => \%params,
);
my %options = $getopt->options;
ARGV => [ $getopt->argv ], # backward compatibility
extra_argv => [ $getopt->extra_argv ], # backward compatibility
getopt => $getopt,
- %params, # explicit params to ->new
- %options, # params from CLI
+ %{ $getopt->params }, # params from session object
+ %params, # explicit params to ->new
+ %options, # params from CLI
);
};