add error checking for the return value of get_config_from_file

diff --git a/lib/MooseX/ConfigFromFile.pm b/lib/MooseX/ConfigFromFile.pm
index 57e6f5b..e6b7d44 100644 (file)
--- a/lib/MooseX/ConfigFromFile.pm
+++ b/lib/MooseX/ConfigFromFile.pm
@@ -5,6 +5,8 @@ use MooseX::Types::Path::Class qw( File );
 
 our $VERSION   = '0.02';
 
+use Carp qw(croak);
+
 requires 'get_config_from_file';
 
 has configfile => (
@@ -28,7 +30,13 @@ sub new_with_config {
     }
 
     if(defined $configfile) {
-        %opts = (%{$class->get_config_from_file($configfile)}, %opts);
+        my $hash = $class->get_config_from_file($configfile);
+
+        no warnings 'uninitialized';
+        croak "get_config_from_file($configfile) did not return a hash (got $hash)"
+            unless ref $hash eq 'HASH';
+
+        %opts = (%$hash, %opts);
     }
 
     $class->new(%opts);