diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-01 21:32:17 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-01 21:32:17 -0400 |
| commit | bffca5dc5c279ad3dd89a4fd734c5f5c5d906155 (patch) | |
| tree | 0a818c55748a6c149950fd82c357fb34dec028b8 | |
| parent | dc7920a0e6cb26d24b1d943f42f47e1b115192b1 (diff) | |
| download | reply-bffca5dc5c279ad3dd89a4fd734c5f5c5d906155.tar.gz reply-bffca5dc5c279ad3dd89a4fd734c5f5c5d906155.zip | |
also need to handle UNIVERSAL here
| -rw-r--r-- | lib/Reply/Plugin/Autocomplete/Methods.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Reply/Plugin/Autocomplete/Methods.pm b/lib/Reply/Plugin/Autocomplete/Methods.pm index 93fda29..4b1c4f5 100644 --- a/lib/Reply/Plugin/Autocomplete/Methods.pm +++ b/lib/Reply/Plugin/Autocomplete/Methods.pm @@ -69,8 +69,13 @@ sub tab_handler { $class = $invocant; } + my @mro = ( + @{ mro::get_linear_isa('UNIVERSAL') }, + @{ mro::get_linear_isa($class) }, + ); + my @results; - for my $package (@{ mro::get_linear_isa($class) }) { + for my $package (@mro) { my $stash = eval { Package::Stash->new($package) }; next unless $stash; |