move use_ext before the extra args

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

diff --git a/lib/MooseX/SimpleConfig.pm b/lib/MooseX/SimpleConfig.pm
index e12b104..056bdfd 100644 (file)
--- a/lib/MooseX/SimpleConfig.pm
+++ b/lib/MooseX/SimpleConfig.pm
@@ -10,10 +10,15 @@ use Config::Any ();
 sub get_config_from_file {
     my ($class, $file) = @_;
 
+    my $can_config_any_args = $class->can('config_any_args');
+    my $extra_args = $can_config_any_args ? 
+        $can_config_any_args->($class, $file) : {};
+    ;
     my $raw_cfany = Config::Any->load_files({
-        files => [ $file ],
         use_ext => 1,
-    });
+        %$extra_args,
+        files => [ $file ]
+    } );
 
     die q{Specified configfile '} . $file
         . q{' does not exist, is empty, or is not readable}