X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FObject.pm;h=94a73d76ca42713a966e4408daf527fd220f0201;hb=855eff0e9edf07f4d7af3eb245a3139fa6c6bd05;hp=7cc315aeb730513ee0431b00a739902c68cdfe82;hpb=af04626de226ce78ec19d583e86fce4c1df2267d;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm index 7cc315a..94a73d7 100644 --- a/lib/Mouse/Object.pm +++ b/lib/Mouse/Object.pm @@ -3,37 +3,6 @@ use Mouse::Util qw(does dump); # enables strict and warnings sub new; -sub DESTROY { - my $self = shift; - - return unless $self->can('DEMOLISH'); # short circuit - - local $?; - - my $e = do{ - local $@; - eval{ - - # DEMOLISHALL - - # 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(); - } - }; - $@; - }; - - no warnings 'misc'; - die $e if $e; # rethrow -} sub BUILDALL { my $self = shift;