" Test::Inline perl editing macros - v.1.0
"
" Copyright (c) Dan Friedman 2005. All rights reserved.
" This software is released under the terms of the Artistic License.
"
" INSTALLATION 
"
" Install this file in your $VIMRUNTIME, and load it appropriately when you're
" editing a .pm file (RTFM). 
"
" INVOCATION
" 
" * Type :Sub <subname> to insert a new sub template for sub <subname>,
" including a TODO block and a comment suggesting you replace it with some
" actual tests
"
" * Type :Todo to insert a new TODO block template 
"
" * Type :For <formatname> to insert a new =for <formatname> section 
"
" That's it. Enjoy.
" --Dan <lamech@cpan.org> 

function! DoSub(subname)
    put ='=head2 ' . a:subname
    put =''
    exec "mark a"
    put ='=begin testing'
    put =''
    put ='TODO: {'
    put ='    local $TODO = <<TODO_LIST;'
    put =''
    put ='This is an empty testing block for sub ' . a:subname . '. Write tests or delete it.'
    put =''
    put ='TODO_LIST'
    put =''
    put ='        fail;'
    put ='}'
    put =''
    put ='=end testing'
    put =''
    put ='=cut'
    put =''
    put ='sub ' . a:subname . ' {'
    put =''
    put ='}'
    'a
endfunction

function! DoTodo()
    exec "mark a"
    put ='TODO: {'
    put ='    local $TODO = <<TODO_LIST;'
    put =''
    put ='This is an empty testing block. Write tests or delete it.'
    put =''
    put ='TODO_LIST'
    put =''
    put ='        fail;'
    put ='}'
    'a
endfunction

function! DoFor(formatname)
    put ='=for ' . a:formatname  
    put =''
    exec "mark a"
    put = ''
    put ='=cut'
    put = ''
    'a
endfunction

:command! -nargs=1 Sub call DoSub(<f-args> )
:command! Todo call DoTodo()
:command! -nargs=1 For call DoFor(<f-args> )