X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FAttribute.pm;h=e283a231c54f7fd642e1eeae081d9e6865fb21cb;hp=a4827e866074b05aa4a8ef6a2d49f8462133f3d4;hb=5176a3e41f75dc3f0de6049ac642087580f94680;hpb=f7e41edaceee0d549a2d664378cfcf85dcf9454b diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm index a4827e8..e283a23 100644 --- a/lib/Mouse/Meta/Attribute.pm +++ b/lib/Mouse/Meta/Attribute.pm @@ -8,7 +8,6 @@ use Mouse::Meta::TypeConstraint; #use Mouse::Meta::Method::Accessor; use Mouse::Meta::Method::Delegation; - sub _process_options{ my($class, $name, $args) = @_; @@ -376,7 +375,6 @@ sub associate_method{ return; } - sub delegation_metaclass() { 'Mouse::Meta::Method::Delegation' } sub install_accessors{ @@ -409,7 +407,6 @@ sub install_accessors{ } } - if($attribute->can('create') != \&create){ # backword compatibility $attribute->create($metaclass, $attribute->name, %{$attribute}); @@ -426,7 +423,6 @@ sub throw_error{ } 1; - __END__ =head1 NAME @@ -435,7 +431,7 @@ Mouse::Meta::Attribute - The Mouse attribute metaclass =head1 VERSION -This document describes Mouse version 0.40_08 +This document describes Mouse version 0.42 =head1 METHODS