diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-09-11 22:11:48 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-09-11 22:11:48 -0400 |
commit | b27e1fc2fba43d908d4e02b22729506190cebd23 (patch) | |
tree | 8af53ae82e457cb4614663c12f21e4dfd79411be | |
parent | b027c1cc830e5b291b00ce3a6f3e92bebeea6f31 (diff) | |
download | reply-b27e1fc2fba43d908d4e02b22729506190cebd23.tar.gz reply-b27e1fc2fba43d908d4e02b22729506190cebd23.zip |
temporarily rename this variable until p5-mop is fixed
-rw-r--r-- | lib/Reply/Plugin/Autocomplete/Methods.pm | 8 |
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; } |