summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2013-09-11 22:11:48 -0400
committerJesse Luehrs <doy@tozt.net>2013-09-11 22:11:48 -0400
commitb27e1fc2fba43d908d4e02b22729506190cebd23 (patch)
tree8af53ae82e457cb4614663c12f21e4dfd79411be
parentb027c1cc830e5b291b00ce3a6f3e92bebeea6f31 (diff)
downloadreply-b27e1fc2fba43d908d4e02b22729506190cebd23.tar.gz
reply-b27e1fc2fba43d908d4e02b22729506190cebd23.zip
temporarily rename this variable until p5-mop is fixed
-rw-r--r--lib/Reply/Plugin/Autocomplete/Methods.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Reply/Plugin/Autocomplete/Methods.pm b/lib/Reply/Plugin/Autocomplete/Methods.pm
index f1fd8b0..98cdd41 100644
--- a/lib/Reply/Plugin/Autocomplete/Methods.pm
+++ b/lib/Reply/Plugin/Autocomplete/Methods.pm
@@ -31,7 +31,7 @@ class Reply::Plugin::Autocomplete::Methods extends Reply::Plugin {
$method_prefix = '' unless defined $method_prefix;
- my $class;
+ my $klass;
if ($invocant =~ /^\$/) {
# XXX should support globals here
my $env = {
@@ -39,14 +39,14 @@ class Reply::Plugin::Autocomplete::Methods extends Reply::Plugin {
};
my $var = $env->{$invocant};
return unless $var && ref($var) eq 'REF' && blessed($$var);
- $class = blessed($$var);
+ $klass = blessed($$var);
}
else {
- $class = $invocant;
+ $klass = $invocant;
}
my @results;
- for my $method (methods($class)) {
+ for my $method (methods($klass)) {
push @results, $method if index($method, $method_prefix) == 0;
}