Added perlcritic.cim, my own clone of pep8.vim using Perl::Critic

In order to make it work, you need to:

*   install Perl::Critic

*   add bin/perl_critic to your path

    Note that `perlcritic` script name is already taken by wrapper
    script that comes with Perl::Critic itself

bin/perlcritic_vim

@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use Perl::Critic;
+
+my $file = shift;
+my $critic = Perl::Critic->new();
+my @violations = $critic->critique($file);
+
+for (@violations) {
+    my ($l, $c) = m/.* at line (\d+), column (\d+)\./;
+    $_ =~ s/ at line \d+, column \d+\././;
+    print "$file:$l:$c:$_";
+}

dotfiles/vim/bundle/perlcritic/ftplugin/perl/perlcritic.vim

@@ -0,0 +1,56 @@
+" To change mapping, just put
+" let g:perlcritic_map='whatever'
+" in your .vimrc
+" To change the color of
+function! <SID>PerlCritic()
+  set lazyredraw
+  " Close any existing cwindows.
+  cclose
+  let l:grepformat_save = &grepformat
+  let l:grepprogram_save = &grepprg
+  set grepformat&vim
+  set grepformat&vim
+  let &grepformat = '%f:%l:%m'
+  let &grepprg = 'perlcritic_vim'
+  if &readonly == 0 | update | endif
+  silent! grep! %
+  let &grepformat = l:grepformat_save
+  let &grepprg = l:grepprogram_save
+  let l:mod_total = 0
+  let l:win_count = 1
+  " Determine correct window height
+  windo let l:win_count = l:win_count + 1
+  if l:win_count <= 2 | let l:win_count = 4 | endif
+  windo let l:mod_total = l:mod_total + winheight(0)/l:win_count |
+        \ execute 'resize +'.l:mod_total
+  " Open cwindow
+  execute 'belowright copen '.l:mod_total
+  nnoremap <buffer> <silent> c :cclose<CR>
+  set nolazyredraw
+  redraw!
+  let tlist=getqflist() ", 'get(v:val, ''bufnr'')')
+  if empty(tlist)
+	  if !hlexists('GreenBar')
+		  hi GreenBar term=reverse ctermfg=white ctermbg=darkgreen guifg=white guibg=darkgreen
+	  endif
+	  echohl GreenBar
+	  echomsg "Perl::Critic correct"
+	  echohl None
+	  cclose
+  endif
+endfunction
+
+  if !exists('g:perlcritic_map')
+    let g:perlcritic_map='<F5>'
+  endif
+if ( !hasmapto('<SID>PerlCritic()') && (maparg(g:perlcritic_map) == '') )
+  exe 'nnoremap <silent> '. g:perlcritic_map .' :call <SID>PerlCritic()<CR>'
+"  map <F5> :call <SID>PerlCritic()<CR>
+"  map! <F5> :call <SID>PerlCritic()<CR>
+else
+  if ( !has("gui_running") || has("win32") )
+    echo "Python Perl::Critic Error: No Key mapped.\n".
+          \ g:perlcritic_map ." is taken and a replacement was not assigned."
+  endif
+endif
+