From: Shawn M Moore <sartak@gmail.com>
Date: Sat, 28 Mar 2009 21:06:18 +0000 (-0400)
Subject: class_of for BUILDALL
X-Git-Tag: 0.73_01~36^2~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=505033d97e03c834ac400e7b771585f552e58720;p=gitmo%2FMoose.git

class_of for BUILDALL
---

diff --git a/lib/Moose/Object.pm b/lib/Moose/Object.pm
index 829c90d..cc80c9c 100644
--- a/lib/Moose/Object.pm
+++ b/lib/Moose/Object.pm
@@ -40,7 +40,7 @@ sub BUILDALL {
     # extra meta level calls
     return unless $_[0]->can('BUILD');    
     my ($self, $params) = @_;
-    foreach my $method (reverse $self->meta->find_all_methods_by_name('BUILD')) {
+    foreach my $method (reverse Class::MOP::class_of($self)->find_all_methods_by_name('BUILD')) {
         $method->{code}->execute($self, $params);
     }
 }