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=a88d147a9c70efa93504c1000fa7a36b84a6961b;hb=f3e1112299b631f1ab6150159eaa414dca37a42c;hpb=f7e41edaceee0d549a2d664378cfcf85dcf9454b diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm index a88d147..9eb8646 100644 --- a/lib/Mouse/Object.pm +++ b/lib/Mouse/Object.pm @@ -2,45 +2,13 @@ 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__ =head1 NAME @@ -49,7 +17,7 @@ Mouse::Object - The base object for Mouse classes =head1 VERSION -This document describes Mouse version 0.40_08 +This document describes Mouse version 0.50_03 =head1 METHODS @@ -88,7 +56,7 @@ need to redispatch or return any specific value. This will check if the invocant's class B a given C<$role_name>. This is similar to "isa" for object, but it checks the roles instead. -=head2 C< Str >> +=head2 C<< dump ($maxdepth) -> Str >> From the Moose POD: