NAME

Devel::IntelliPerl::Editor::Vim - IntelliPerl integration for Vim

VERSION

version 0.04

SYNOPSIS

    package Test;
    use Moose;

    has a_varaible => ( is => 'rw', isa => 'Str' );

    sub a_method {
        my $self = shift;
        $self->a^^;
    }

Pressing <c-x><c-o> from insert mode in Vim will offer up a menu to auto complete with either a_method or a_varaible.

DESCRIPTION

Vim uses the omnifunction to autocomplete most languages. This is typically mapped to <c-x><c-o> which is vim speak for (ctrl-x followed by crtl-o). Add the following to your ~/.vim/ftplugin/perl.vim file and the omnifunction should run Devel::IntelliPerl for perl method completion.

    setlocal omnifunc=Ocf_devel_intelliperl
    function! Ocf_devel_intelliperl(findstart, base)
    " This function is called twice, once with a:findstart and immediately
    " thereafter without a:findstart
    " With a:findstart, return the col where the prefix starts
    " Without a:findstart, return the method options
    " We run Devel::IntelliPerl only once and cache the results
    if a:findstart

    " Get some info for the command
    let line = line('.')
    let column = col('.') - 1
    let filename = expand("%")

    " Defined the Devel::IntelliPerl command
    let command = "perl -MDevel::IntelliPerl::Editor::Vim -e 'run' " . line . ' ' . column . ' ' . filename

    " Get the current contents of the buffer (we don't want to have to write the file)
    let buffer_contents = join( getline(1,"$"), "\n" )

    " Run the command and munge the results into a list
    let result_str = system(command, buffer_contents )
    let s:ofc_results = split( result_str, " *\n" )
    let prefix_len = s:ofc_results[0]

    return col('.') - prefix_len - 1
    endif

    return s:ofc_results[1:-1]
    endfunction

METHODS

editor

Set to Vim.

run

This method is exported and invokes Devel::IntelliPerl.

SEE ALSO

Devel::IntelliSense

COPYRIGHT & LICENSE

Copyright 2009 Mark Grimes, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.