[Moose-commits] r7250 - Class-MOP/branches/meta-independence/lib/Class/MOP

[sartak at code2.0beta.co.uk]

Author: sartak
Date: 2009-01-07 06:42:41 -0800 (Wed, 07 Jan 2009)
New Revision: 7250

Modified:
   Class-MOP/branches/meta-independence/lib/Class/MOP/Class.pm
Log:
Better metaclass incompatibility error messages

Modified: Class-MOP/branches/meta-independence/lib/Class/MOP/Class.pm
===================================================================
--- Class-MOP/branches/meta-independence/lib/Class/MOP/Class.pm	2009-01-07 14:33:21 UTC (rev 7249)
+++ Class-MOP/branches/meta-independence/lib/Class/MOP/Class.pm	2009-01-07 14:42:41 UTC (rev 7250)
@@ -162,16 +162,16 @@
                             : ref($meta));
 
         ($self->isa($meta_type))
-            || confess $self->name . "->meta => (" . (ref($self)) . ")" .
+            || confess $self->name . "'s metaclass => (" . (ref($self)) . ")" .
                        " is not compatible with the " .
-                       $class_name . "->meta => (" . ($meta_type)     . ")";
+                       $class_name . "'s metaclass => (" . ($meta_type)     . ")";
         # NOTE:
         # we also need to check that instance metaclasses
         # are compatibile in the same the class.
         ($self->instance_metaclass->isa($meta->instance_metaclass))
-            || confess $self->name . "->meta->instance_metaclass => (" . ($self->instance_metaclass) . ")" .
+            || confess $self->name . "'s instance metaclass => (" . ($self->instance_metaclass) . ")" .
                        " is not compatible with the " .
-                       $class_name . "->meta->instance_metaclass => (" . ($meta->instance_metaclass) . ")";
+                       $class_name . "'s instance metaclass => (" . ($meta->instance_metaclass) . ")";
     }
 }