X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FObject.pm;h=9eb8646bceacbe895e2d655148970920720dccf9;hp=0915aebb0636eb296dff19de3e63c60d803e63cf;hb=f3e1112299b631f1ab6150159eaa414dca37a42c;hpb=a4cbb3cb944aa43521dfa69a9f04b206c6b7a6ea diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm index 0915aeb..9eb8646 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__ @@ -47,7 +17,7 @@ Mouse::Object - The base object for Mouse classes =head1 VERSION -This document describes Mouse version 0.44 +This document describes Mouse version 0.50_03 =head1 METHODS