From: Stevan Little Date: Tue, 25 Apr 2006 00:04:34 +0000 (+0000) Subject: mop X-Git-Tag: 0_26^0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93b4e576d3ac26a1676c45177161c6477ac2b35e;p=gitmo%2FClass-MOP.git mop --- diff --git a/Changes b/Changes index 01e044a..b5d2e4d 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,6 @@ Revision history for Perl extension Class-MOP. -0.26 +0.26 Mon. April 24, 2006 * Class::MOP::Class - added find_attribute_by_name method - added tests and docs for this diff --git a/README b/README index 6a69a03..338ce3b 100644 --- a/README +++ b/README @@ -1,4 +1,4 @@ -Class::MOP version 0.25 +Class::MOP version 0.26 =========================== See the individual module documentation for more information diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm index 09220ff..a08426f 100644 --- a/lib/Class/MOP.pm +++ b/lib/Class/MOP.pm @@ -11,7 +11,7 @@ use Class::MOP::Class; use Class::MOP::Attribute; use Class::MOP::Method; -our $VERSION = '0.25'; +our $VERSION = '0.26'; ## ---------------------------------------------------------------------------- ## Setting up our environment ... diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm index 427c53a..df0fb3c 100644 --- a/lib/Class/MOP/Attribute.pm +++ b/lib/Class/MOP/Attribute.pm @@ -7,7 +7,7 @@ use warnings; use Carp 'confess'; use Scalar::Util 'blessed', 'reftype', 'weaken'; -our $VERSION = '0.06'; +our $VERSION = '0.07'; sub meta { require Class::MOP::Class; diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm index 9c154e3..ad5fff7 100644 --- a/lib/Class/MOP/Class.pm +++ b/lib/Class/MOP/Class.pm @@ -9,7 +9,7 @@ use Scalar::Util 'blessed', 'reftype'; use Sub::Name 'subname'; use B 'svref_2object'; -our $VERSION = '0.12'; +our $VERSION = '0.13'; # Self-introspection @@ -232,7 +232,7 @@ sub class_precedence_list { # This will do nothing if all is well, and blow # up otherwise. Yes, it's an ugly hack, better # suggestions are welcome. - { $self->name->isa('This is a test for circular inheritance') } + { ($self->name || return)->isa('This is a test for circular inheritance') } # ... and now back to our regularly scheduled program ( $self->name,