Ovid

from the snarky-but-true dept...

Alternatively, use short enough subs that you can always see the sub name when editing the sub (and manually correct any files which don't fit this convention).

Nifty!

Now if we could get petdance to include that snippet, we might see the first 2011 commit here: https://github.com/petdance/vim-perl

In Emacs this is:

M-x which-function-mode

Which you can automatically load with a mode hook. It'll work with any programming mode that supports Imenu. Which is almost all of them.

A bit of bike-shedding, but I like:

• to see (not in sub) when I'm between subs
• to see :Attributes for the sub

  my $line = $document[$i];
  last if $line =~ /^}/ and $i != ($line_number-1);
  if ( $line =~ /^\s*sub\s+(\w+\b.*?){?$/ ) {   

From the bike-shedding department, the lines:

  my @document = map { $curbuf->Get($_) } 0 .. $curbuf->Count;
  my ( $line_number, $column  ) = $curwin->Cursor;

can become:

  my ( $line_number, $column  ) = $curwin->Cursor;
  $line = $curbuf->Get($line_number--)
    while $line_number >=0 && !/^\s* sub \s+ (\w+)/x;

.. so you can avoid ->Get-ting all 8k lines when you need "only" 200 ;)

From the bike-shedding department, the lines:

  my @document = map { $curbuf->Get($_) } 0 .. $curbuf->Count;
  my ( $line_number, $column  ) = $curwin->Cursor;

could become:

  my ( $line_number, $column  ) = $curwin->Cursor;
  $line = $curbuf->Get($line_number--)
    while $line_number >=0 && !/^\s* sub \s+ (\w+)/x;

.. so you can avoid ->Get-ting all 8k lines when you need "only" 200 ;)

Uh, double comment above, you may remove one.

Corrections after having used this a bit:

b:did_perl_statusline

makes the variable local to the buffer instead of g: which is global

my $line_number = ($curwin->Cursor)[0];

my $line = '';
$line = $curbuf->Get( $line_number )
    while $line_number-- > 0 && $line !~ /^\s*sub\s+(\w+)\b/;

my $sub_name = $1 || '(not in sub)';
VIM::DoCommand("let subName='$sub_name'");

I do believe this is faster than getting all lines for each cursor movement :)

Here's a function that determines the name of the current sub in much the same way, but it's in Vim script, so it works even if you don't have Perl embedded in Vim:

function! PerlCurrentSubName()
    let s:currline = line('.')
    let s:currcol = col('.')
    normal $
    let [s:line, s:column] = searchpos('^\s*sub\s\+\zs\(\w\+\)','bcW')
    if (s:line != 0)
        let s:subname = expand('')
        call cursor(s:currline, s:currcol)
        return s:subname
    else
        return '(not in sub)'
    endif
endfunction

Actually, in this function we need to call cursor() even if there was no match, because "normal $" would insist on always keeping the cursor on the end of the line...

function! PerlCurrentSubName()
    let s:currline = line('.')
    let s:currcol = col('.')
    normal $ 
    let [s:line, s:column] = searchpos('^\s*sub\s\+\zs\(\w\+\)','bcW')
    if (s:line != 0)
        let s:subname = expand('')
    else
        let s:subname = '(not in sub)'
    endif
    call cursor(s:currline, s:currcol)
    return s:subname
endfunction

There may be a better way of doing this without "normal $", and maybe there's a way of getting the result of the subpattern in search() directly without having to jump to the location and expanding cword, but my vim-fu is weak...

I played with your script for about an hour and made an improvement. This will display 'N/A' if you're outside the subroutine. If you have a history of your closing brace indent not matching your sub declaration indent you may want to alter the $indent portion. Have fun!

.vimrc

syntax on
setlocal laststatus=2
setlocal statusline=\ %{HasPaste()}%F%m%r%h\ %w\ \ CWD:\ %r%{CurDir()}%h\ \ \ Position:\ %p%%\ %l/%L,%c
if has("autocmd")
    autocmd BufReadPost * if &syntax == 'perl' | source ~/.vim/perl_current_subroutine | endif
endif

.vim/perl_current_subroutine

if ! exists("b:did_perl_statusline") && &syntax == 'perl'
    setlocal statusline+=%(\ \ \ Subroutine:\ %{StatusLineIndexLine()}%)
    let b:did_perl_statusline = 1
endif

if has('perl')
perl Cursor)[0];
        my $line = $curbuf->Get($line_number);
        my $indent = '';
        if ($line !~ /^(\s*)sub\s+(\w+)\b/) {
            $line = $curbuf->Get($line_number) while ($line_number-- > 0 && $line !~ /^(\s*)sub\s+(\w+)\b/);
            ($indent, $sub_name) = ($1, $2);
        } else {
            $line_number--;
            ($indent, $sub_name) = ($1, $2);
        }

        #if found, (try to) find the end of the subroutine
        if ($sub_name ne 'N/A') {
            my $end = $curbuf->Count();
            $line = $curbuf->Get($line_number);
            if ($line !~ /}\s*$/) {
                $line = $curbuf->Get($line_number) while ($line_number++ Cursor)[0] > $line_number);
        }

        VIM::DoCommand("let current_perl_subroutine_name='$sub_name'");
    }
EOP

    function! StatusLineIndexLine()
        perl current_perl_subroutine()
        return current_perl_subroutine_name
    endfunction
endif