From: Stevan Little <stevan.little@iinteractive.com>
Date: Fri, 21 Apr 2006 20:53:10 +0000 (+0000)
Subject: stuff
X-Git-Tag: 0_26~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7f732e441ca349d02603fd63046bdc84b565cc5;p=gitmo%2FClass-MOP.git

stuff
---

diff --git a/Changes b/Changes
index 05c0f48..fa1e260 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,10 @@
 Revision history for Perl extension Class-MOP.
 
+0.26
+    * Class::MOP::Class
+      - added find_attribute_by_name method
+        - added tests and docs for this
+
 0.25 Thurs. April 20, 2006
     * Class::MOP::Class
       - added create_anon_class for creating anonymous classes
diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index fc3626e..762c6a2 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -217,11 +217,12 @@ sub version {
 
 sub superclasses {
     my $self = shift;
+    no strict 'refs';
     if (@_) {
         my @supers = @_;
-        @{$self->get_package_variable('@ISA')} = @supers;
+        @{$self->name . '::ISA'} = @supers;
     }
-    @{$self->get_package_variable('@ISA')};        
+    @{$self->name . '::ISA'};
 }
 
 sub class_precedence_list {