X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FSimpleConfig.pm;fp=lib%2FMooseX%2FSimpleConfig.pm;h=824158d4eed34ecaf3a73e2225270a518b27687b;hb=d5372a18d0e3c5ac6d90422da6dc00c318921c2d;hp=8ecdf92ca0d270e6e3867e83505633a1c650c609;hpb=5b519d9c15e6a8bb7cc88528c175a612fa04c144;p=gitmo%2FMooseX-SimpleConfig.git

diff --git a/lib/MooseX/SimpleConfig.pm b/lib/MooseX/SimpleConfig.pm
index 8ecdf92..824158d 100644
--- a/lib/MooseX/SimpleConfig.pm
+++ b/lib/MooseX/SimpleConfig.pm
@@ -10,6 +10,7 @@ use Config::Any ();
 sub get_config_from_file {
     my ($class, $file) = @_;
 
+    $file = $file->() if ref $file eq 'CODE';
     my $files_ref = ref $file eq 'ARRAY' ? $file : [$file];
 
     my $can_config_any_args = $class->can('config_any_args');