X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FClass.pm;h=9b43135b93bbd297107fb88a33057f493d17d683;hb=935400114c35ad1b2481c48ff471e180e9c93d93;hp=167f4b9058c7a9c4ceb983dd5e662a65e67e31d2;hpb=e72648617a5de4b9d589b9642ff2e84368809410;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 167f4b9..9b43135 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -38,11 +38,9 @@ sub create_anon_class{ return $self->create(undef, @_); } -sub is_anon_class{ - return exists $_[0]->{anon_serial_id}; -} +sub is_anon_class; -sub roles { $_[0]->{roles} } +sub roles; sub calculate_all_roles { my $self = shift; @@ -173,7 +171,7 @@ sub get_all_attributes { return @attr; } -sub linearized_isa { @{ get_linear_isa($_[0]->name) } } +sub linearized_isa; sub new_object { my $self = shift; @@ -481,7 +479,7 @@ Mouse::Meta::Class - The Mouse class metaclass =head1 VERSION -This document describes Mouse version 0.39 +This document describes Mouse version 0.40 =head1 METHODS