foo

[gitmo/Moose.git] / lib / Moose / Object.pm

diff --git a/lib/Moose/Object.pm b/lib/Moose/Object.pm
index e754eb4..56fea9f 100644 (file)
--- a/lib/Moose/Object.pm
+++ b/lib/Moose/Object.pm
@@ -9,7 +9,7 @@ use metaclass 'Moose::Meta::Class';
 
 use Carp 'confess';
 
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
 sub new {
     my $class = shift;
@@ -28,6 +28,7 @@ sub new {
 }
 
 sub BUILDALL {
+       return unless $_[0]->can('BUILD');    
        my ($self, $params) = @_;
        foreach my $method (reverse $self->meta->find_all_methods_by_name('BUILD')) {
                $method->{code}->($self, $params);
@@ -35,7 +36,8 @@ sub BUILDALL {
 }
 
 sub DEMOLISHALL {
-       my $self = shift;
+       return unless $_[0]->can('DEMOLISH');    
+       my $self = shift;       
        foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
                $method->{code}->($self);
        }