Invalid class names should throw an exception

[gitmo/Mouse.git] / lib / Mouse.pm

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index 59ddd5c..58637af 100644 (file)
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -83,7 +83,10 @@ do {
 sub load_class {
     my $class = shift;
 
-    return 0 if ref($class) || !defined($class) || !length($class);
+    if (ref($class) || !defined($class) || !length($class)) {
+        my $display = defined($class) ? $class : 'undef';
+        confess "Invalid class name ($display)";
+    }
 
     return 1 if is_class_loaded($class);