From: gfx <gfuji@cpan.org>
Date: Fri, 18 Dec 2009 04:41:35 +0000 (+0900)
Subject: Rename variable names for clearity
X-Git-Tag: 0.45~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=060f922893d1a0308a393260b65ec172dca9dfe2

Rename variable names for clearity
---

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index 1abd5b2..3ea2ca7 100644
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -348,18 +348,18 @@ sub get_value {
 
 sub has_value {
     my($self, $object) = @_;
-    my $predicate_ref = $self->{_predicate_ref}
+    my $accessor_ref = $self->{_predicate_ref}
         ||= $self->_get_accessor_method_ref('predicate', '_generate_predicate');
 
-    return $predicate_ref->($object);
+    return $accessor_ref->($object);
 }
 
 sub clear_value {
     my($self, $object) = @_;
-    my $predicate_ref = $self->{_crealer_ref}
+    my $accessor_ref = $self->{_crealer_ref}
         ||= $self->_get_accessor_method_ref('clearer', '_generate_clearer');
 
-    return $predicate_ref->($object);
+    return $accessor_ref->($object);
 }