croak if no input was given
authorFlorian Ragwitz <rafl@debian.org>
Tue, 19 Jun 2007 15:03:56 +0000 (15:03 +0000)
committerFlorian Ragwitz <rafl@debian.org>
Tue, 19 Jun 2007 15:03:56 +0000 (15:03 +0000)
lib/MetaInit/Parse.pm

index 78ab515..d37245e 100644 (file)
@@ -199,6 +199,10 @@ sub parse {
         $parsed{File} = $file;
         $parsed{Name} = basename($file,'.metainit');
     }
+    else {
+        croak("no input given; you need to pass a `filename', "
+            . "an opened `handle' or an `input' string");
+    }
 
     if (!defined $parsed{File}) {
         if (ref $args->{fields} ne 'HASH'
@@ -229,7 +233,6 @@ sub parse {
     return \%parsed;
 }
 
-
 # Return a true value
 1;