* MooseX::Getopt: _get_options_from_configfile renamed to get_options_from_configfile.

[gitmo/MooseX-Getopt.git] / lib / MooseX / Getopt.pm

diff --git a/lib/MooseX/Getopt.pm b/lib/MooseX/Getopt.pm
index 27c17c8..0e4a268 100644 (file)
--- a/lib/MooseX/Getopt.pm
+++ b/lib/MooseX/Getopt.pm
@@ -40,30 +40,29 @@ sub get_options_from_argv {
     Moose->throw_error("Single parameters to get_options_from_argv() must be a HASH ref")
         if ref $_[0] and ref $_ ne 'HASH';
 
-    my %params = ( $class->_get_options_from_configfile, @_ == 1 ? %{ $_[0] } : @_ );
+    my $options = { %{ $class->get_options_from_configfile }, @_ == 1 ? %{ $_[0] } : @_ };
 
-    my $getopt = defined $params{getopt}
-                 ? $params{getopt}
+    my $getopt = defined $options->{getopt}
+                 ? $options->{getopt}
                  : $class->_default_getopt_session->new(
                        classes_filter => sub { $_ eq $class },
-                       params => \%params,
+                       options => $options,
                    );
 
-    my %new_params = (
-        %{ $getopt->params },                   # params from session object
-        %params,                                # explicit params to ->new
-        %{ $getopt->options },                  # params from CLI
+    my $new_options = {
+        %{ $options },                          # explicit options to ->new
+        %{ $getopt->options },                  # options from CLI
         getopt => $getopt,
-    );
+    };
 
-    return %new_params;
+    return $new_options;
 };
 
 
-sub _get_options_from_configfile {
+sub get_options_from_configfile {
     my $class = shift;
 
-    my %params = ();
+    my $options = {};
 
     if ($class->meta->does_role('MooseX::ConfigFromFile')) {
         local @ARGV = @ARGV;
@@ -78,11 +77,11 @@ sub _get_options_from_configfile {
         };
 
         if (defined $configfile) {
-            %params = %{ $class->get_config_from_file($configfile) };
+            $options = $class->get_config_from_file($configfile);
         };
     };
 
-    return %params;
+    return $options;
 };
 
 
@@ -339,6 +338,11 @@ C<new>.
 This method returns the list of parameters collected from command line
 without creating the new object.
 
+=item B<get_options_from_configfile>
+
+This method returns the list of parameters collected with
+L<MooseX::ConfigFromFile> mechanism.
+
 =item B<ARGV>
 
 This accessor contains a reference to a copy of the C<@ARGV> array as it