X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FObject.pm;h=65c95b1c76521545d0f4caa11d881437bd4a0401;hp=0915aebb0636eb296dff19de3e63c60d803e63cf;hb=adb5eb76f6875283f11d6f2b8d281568f0a4a688;hpb=f35b50f2b89b223295501395f16f3fd651db8cf5 diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm index 0915aeb..65c95b1 100644 --- a/lib/Mouse/Object.pm +++ b/lib/Mouse/Object.pm @@ -2,41 +2,11 @@ package Mouse::Object; use Mouse::Util qw(does dump meta); # enables strict and warnings sub new; +sub BUILDARGS; +sub BUILDALL; -sub BUILDALL { - my $self = shift; - - # short circuit - return unless $self->can('BUILD'); - - for my $class (reverse $self->meta->linearized_isa) { - my $build = Mouse::Util::get_code_ref($class, 'BUILD') - || next; - - $self->$build(@_); - } - return; -} - -sub DEMOLISHALL { - my $self = shift; - - # short circuit - return unless $self->can('DEMOLISH'); - - # We cannot count on being able to retrieve a previously made - # metaclass, _or_ being able to make a new one during global - # destruction. However, we should still be able to use mro at - # that time (at least tests suggest so ;) - - foreach my $class (@{ Mouse::Util::get_linear_isa(ref $self) }) { - my $demolish = Mouse::Util::get_code_ref($class, 'DEMOLISH') - || next; - - $self->$demolish(); - } - return; -} +sub DESTROY; +sub DEMOLISHALL; 1; __END__