X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FMethod%2FAccessor.pm;h=c4f7356e4f6bd8fdbc91bf930f09e1551b7631bc;hp=9f8e4079f32454e9c75d0e3df9f8c0baf44a18ca;hb=d7d8d49b322c4d0f274aaafb049b324e1de6b552;hpb=745220df2da2256a9bd2692ac585f39b35ed19df diff --git a/lib/Mouse/Meta/Method/Accessor.pm b/lib/Mouse/Meta/Method/Accessor.pm index 9f8e407..c4f7356 100755 --- a/lib/Mouse/Meta/Method/Accessor.pm +++ b/lib/Mouse/Meta/Method/Accessor.pm @@ -166,29 +166,6 @@ sub _generate_clearer { }; } -sub _generate_delegation{ - my (undef, $attribute, $class, $reader, $handle_name, $method_to_call) = @_; - - return sub { - my $instance = shift; - my $proxy = $instance->$reader(); - - my $error = !defined($proxy) ? ' is not defined' - : ref($proxy) && !blessed($proxy) ? qq{ is not an object (got '$proxy')} - : undef; - if ($error) { - $instance->meta->throw_error( - "Cannot delegate $handle_name to $method_to_call because " - . "the value of " - . $attribute->name - . $error - ); - } - $proxy->$method_to_call(@_); - }; -} - - 1; __END__