Docs, small fixes, find_method_by_name and the get_value/set_value abstraction for...

[gitmo/Class-MOP.git] / lib / metaclass.pm

diff --git a/lib/metaclass.pm b/lib/metaclass.pm
index b52022f..2bbafdd 100644 (file)
--- a/lib/metaclass.pm
+++ b/lib/metaclass.pm
@@ -20,7 +20,7 @@ sub import {
     else {
         $metaclass = shift;
         ($metaclass->isa('Class::MOP::Class'))
-            || confess 'The metaclass must be derived from Class::MOP::Class';        
+            || confess "The metaclass ($metaclass) must be derived from Class::MOP::Class";
     }
     my %options = @_;
     my $package = caller();
@@ -92,4 +92,4 @@ L<http://www.iinteractive.com>
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself. 
 
-=cut
\ No newline at end of file
+=cut