Throw a better error message when using a method modifier without CMM

diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index 3ee836c..b9179eb 100644 (file)
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -195,8 +195,7 @@ sub _install_modifier {
             $code
         );
     }
-    else {
-        require Class::Method::Modifiers;
+    elsif (eval "require Class::Method::Modifiers; 1") {
         Class::Method::Modifiers::_install_modifier( 
             $into,
             $type,
@@ -204,6 +203,9 @@ sub _install_modifier {
             $code
         );
     }
+    else {
+        Carp::croak("Method modifiers require the use of Class::Method::Modifiers. Please install it from CPAN and file a bug report with this application.");
+    }
 }
 
 sub add_before_method_modifier {