PageRenderTime 155ms CodeModel.GetById 153ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/bash_completion_lib/include/_perlmodules

http://github.com/brinkman83/bashrc
#! | 4 lines | 4 code | 0 blank | 0 comment | 0 complexity | 310448f27a06b21c7cef5d72be258327 MD5 | raw file
1_perlmodules()
2{
3    COMPREPLY=( $( compgen -P "$prefix" -W "$( perl -e 'sub mods { my ($base,$dir)=@_; return if  $base !~ /^\Q$ENV{cur}/; chdir($dir) or return; for (glob(q[*.pm])) {s/\.pm$//; print qq[$base$_\n]}; mods(/^(?:[.\d]+|$Config{archname}-$Config{osname}|auto)$/ ? undef : qq[${base}${_}\\\\:\\\\:],qq[$dir/$_]) for grep {-d} glob(q[*]); } mods(undef,$_) for @INC;' )" -- $cur ) )
4}