X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FModule.pm;h=b6a0eab5535d6131f53b4b5ddb63c560ba2fa100;hb=891a9d59e2270c247635aae1a22c7081f18d3981;hp=546bb2e21f726d2040a2844810bc2ea7591fd3ef;hpb=cf267e676ef8c258c71348c3becd5da2d7f9f36c;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm index 546bb2e..b6a0eab 100644 --- a/lib/Mouse/Meta/Module.pm +++ b/lib/Mouse/Meta/Module.pm @@ -14,12 +14,6 @@ if(Mouse::Util::MOUSE_XS){ *CLONE = sub { Mouse::Util::__register_metaclass_storage(\%METAS, 1) }; } -sub _metaclass_cache { # DEPRECATED - my($self, $name) = @_; - Carp::cluck('_metaclass_cache() has been deprecated. Use Mouse::Util::get_metaclass_by_name() instead'); - return $METAS{$name}; -} - sub initialize { my($class, $package_name, @args) = @_; @@ -52,7 +46,8 @@ sub _class_of{ } # Means of accessing all the metaclasses that have -# been initialized thus far +# been initialized thus far. +# The public versions are aliased into Mouse::Util::*. #sub _get_all_metaclasses { %METAS } sub _get_all_metaclass_instances { values %METAS } sub _get_all_metaclass_names { keys %METAS } @@ -79,7 +74,7 @@ sub remove_attribute { delete $_[0]->{attributes}->{$_[1]} } sub get_attribute_list{ keys %{$_[0]->{attributes}} } -# XXX: for backward compatibility +# XXX: not completely compatible with Moose my %foreign = map{ $_ => undef } qw( Mouse Mouse::Role Mouse::Util Mouse::Util::TypeConstraints Carp Scalar::Util List::Util @@ -133,7 +128,7 @@ sub get_method_list { return grep { $self->has_method($_) } keys %{ $self->namespace }; } -sub _collect_methods { # Mouse specific +sub _collect_methods { # Mouse specific, used for method modifiers my($meta, @args) = @_; my @methods; @@ -315,7 +310,7 @@ Mouse::Meta::Module - The common base class of Mouse::Meta::Class and Mouse::Met =head1 VERSION -This document describes Mouse version 0.76 +This document describes Mouse version 0.82 =head1 DESCRIPTION