X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FClass.pm;h=a3fe71b36bca2fcd09a735d31ddb315fa19b6138;hb=a0d746d2f364b97682306cd942d4ad0f6a96897e;hp=6028ed853cd1b0d88a4e706e26f2d88d220101f3;hpb=6d97be621e327fb47ccdae402139885d653e8b02;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 6028ed8..a3fe71b 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -223,27 +223,11 @@ sub add_attribute { return $attr; } -sub compute_all_applicable_attributes { # DEPRECATED - Carp::cluck('compute_all_applicable_attributes() has been deprecated. Use get_all_attributes() instead'); - - return shift->get_all_attributes(@_) -} - sub linearized_isa; sub new_object; sub clone_object; - -sub clone_instance { # DEPRECATED - my ($class, $instance, %params) = @_; - - Carp::cluck('clone_instance() has been deprecated. Use clone_object() instead'); - - return $class->clone_object($instance, %params); -} - - sub immutable_options { my ( $self, @args ) = @_; @@ -255,7 +239,6 @@ sub immutable_options { ); } - sub make_immutable { my $self = shift; my %args = $self->immutable_options(@_);