From: Stevan Little <stevan.little@iinteractive.com>
Date: Sat, 28 Jan 2006 17:02:40 +0000 (+0000)
Subject: Class-MOP = bunch of moving stuff around
X-Git-Tag: 0_02~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ddf42a0a45b6eaf48d311c447861489fbaf6062;p=gitmo%2FClass-MOP.git

Class-MOP = bunch of moving stuff around
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index a2bc46d..6ad65fe 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]} }
+sub name { ${$_[0]}[0] }
 
 sub version {  
     my $self = shift;