From: Stevan Little <stevan.little@iinteractive.com>
Date: Sat, 28 Jan 2006 17:06:11 +0000 (+0000)
Subject: back to the old way
X-Git-Tag: 0_02~18
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c29410612d042e28cad78aa283e3118a1431f4e6;p=gitmo%2FClass-MOP.git

back to the old way
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 6ad65fe..a2bc46d 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -23,7 +23,7 @@ our $VERSION = '0.01';
         my ($class, $package_name) = @_;
         (defined $package_name && $package_name)
             || confess "You must pass a package name";
-        $METAS{$package_name} ||= bless [ $package_name, {} ] => blessed($class) || $class;
+        $METAS{$package_name} ||= bless \$package_name => blessed($class) || $class;
     }
 }
 
@@ -49,7 +49,7 @@ sub create {
 
 # Informational 
 
-sub name { ${$_[0]}[0] }
+sub name { ${$_[0]} }
 
 sub version {  
     my $self = shift;