" See http://www.vim.org/scripts/script.php?script_id=1318
" Written by Sartak, feel free to add your own!

if !exists('loaded_snippet') || &cp
    finish
endif

function RemoveEmptySuperClass()
    s/^extends '<{}>';\n//e
    return @z
endfun

function LazyBuilder()
    let pattern = "has\\s\\+\\zs.\\{-}\\ze\\s\\+=>"
    let lnum = search(pattern, 'bnW')
    return matchstr(getline(lnum), pattern)
endfunction

function Snippet(abbr, str)
    if type(a:str) == type([])
        return Snippet(a:abbr, join(a:str, "\n"))
    endif
    let st = g:snip_start_tag
    let et = g:snip_end_tag
    let cd = g:snip_elem_delim
    let str = substitute(a:str, '<{.\{-}\zs:\ze.\{-}}>', cd, "")
    let str = substitute(str, '<{', st, "")
    let str = substitute(str, '}>', et, "")
    exec 'Snippet '.a:abbr.' '.str
endfunction

function SnippetFile(filename)
    let abbr = fnamemodify(a:filename, ':t:r')
    let str = readfile(a:filename)
    return Snippet(abbr, str)
endfunction

call Snippet('class', [
            \"package <{ClassName}>;",
            \"use Moose;",
            \"",
            \"extends '<{SuperClass:RemoveEmptySuperClass()}>;",
            \"",
            \"<{}>",
            \"",
            \"__PACKAGE__->meta->make_immutable;",
            \"no Moose;",
            \"",
            \"1;"])
call Snippet('has', [
            \"has <{attr}> => (",
            \    "is  => '<{rw}>',",
            \    "isa => '<{Str}>',",
            \    "<{}>",
            \");"])
call Snippet('hasl', [
            \"has <{attr}> => (",
            \    "is         => '<{rw}>',",
            \    "isa        => '<{Str}>',",
            \    "lazy_build => 1,",
            \    "<{}>",
            \");",
            \"",
            \"sub _build_<{attr:LazyBuilder()}> {",
            \    "my $self = shift;",
            \    "<{}>",
            \"}"])
call Snippet('sub', [
            \"sub <{name}> {",
            \    "my $self = shift;",
            \    "<{}>",
            \"}"])
call Snippet('around', [
            \"around <{name}> => sub {",
            \    "my $orig = shift;",
            \    "my $self = shift;",
            \    "<{}>",
            \"};"])

"for file in globpath(&rtp, 'snippets/*')
    "call SnippetFile(file)
"endfor