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=de9fd03a042ef0d5dda8da82d213a227de4ebd61;hp=0445fa77839b69971518b6bec4e20d8a2e388e23;hb=4c0fe06fa87e7c2c4ed1666e77ed52ae020f19d7;hpb=506fb74dbff3e8f756230c643d8bff7b85ae9ca3 diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm index 0445fa7..de9fd03 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_09 +This document describes Mouse version 0.41 =head1 METHODS