X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FAttribute.pm;h=e97d9e70851ede4782a3ed9dd24f325aa30f9730;hb=refs%2Ftags%2F0.43;hp=68cfaeaf4ccf7a9bb0b5ab66b50c5de7bb5a1284;hpb=8aba926dbf11e9cf418c7c79b925d15e60e1e990;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm index 68cfaea..e97d9e7 100644 --- a/lib/Mouse/Meta/Attribute.pm +++ b/lib/Mouse/Meta/Attribute.pm @@ -8,11 +8,9 @@ use Mouse::Meta::TypeConstraint; #use Mouse::Meta::Method::Accessor; use Mouse::Meta::Method::Delegation; - sub _process_options{ my($class, $name, $args) = @_; - # XXX: for backward compatibility (with method modifiers) if($class->can('canonicalize_args') != \&canonicalize_args){ %{$args} = $class->canonicalize_args($name, %{$args}); @@ -376,7 +374,6 @@ sub associate_method{ return; } - sub delegation_metaclass() { 'Mouse::Meta::Method::Delegation' } sub install_accessors{ @@ -409,7 +406,6 @@ sub install_accessors{ } } - if($attribute->can('create') != \&create){ # backword compatibility $attribute->create($metaclass, $attribute->name, %{$attribute}); @@ -426,7 +422,6 @@ sub throw_error{ } 1; - __END__ =head1 NAME @@ -435,7 +430,7 @@ Mouse::Meta::Attribute - The Mouse attribute metaclass =head1 VERSION -This document describes Mouse version 0.40_07 +This document describes Mouse version 0.43 =head1 METHODS