From 9931e0888b2419326ae10ebbfae532261c5c125f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Karel=20Ko=C4=8D=C3=AD?= Date: Thu, 30 Jun 2016 16:11:56 +0200 Subject: Fix submodules --- vim/bundle/vim-snippets | 1 + vim/bundle/vim-snippets/snippets/perl.snippets | 359 ------------------------- 2 files changed, 1 insertion(+), 359 deletions(-) create mode 160000 vim/bundle/vim-snippets delete mode 100644 vim/bundle/vim-snippets/snippets/perl.snippets (limited to 'vim/bundle/vim-snippets/snippets/perl.snippets') diff --git a/vim/bundle/vim-snippets b/vim/bundle/vim-snippets new file mode 160000 index 0000000..15d7e5e --- /dev/null +++ b/vim/bundle/vim-snippets @@ -0,0 +1 @@ +Subproject commit 15d7e5ec26ec93adee4051b6359be90a943aa38d diff --git a/vim/bundle/vim-snippets/snippets/perl.snippets b/vim/bundle/vim-snippets/snippets/perl.snippets deleted file mode 100644 index 65120a2..0000000 --- a/vim/bundle/vim-snippets/snippets/perl.snippets +++ /dev/null @@ -1,359 +0,0 @@ -# #!/usr/bin/perl -snippet #! - #!/usr/bin/env perl - -# Hash Pointer -snippet . - => -# Function -snippet sub - sub ${1:function_name} { - ${0} - } -# Conditional -snippet if - if (${1}) { - ${0} - } -# Conditional if..else -snippet ife - if (${1}) { - ${2} - } - else { - ${0} - } -# Conditional if..elsif..else -snippet ifee - if (${1}) { - ${2} - } - elsif (${3}) { - ${4:# elsif...} - } - else { - ${0} - } -snippet eif - elsif (${1}) { - ${0} - } -# Conditional One-line -snippet xif - ${1:expression} if ${2:condition}; -# Unless conditional -snippet unless - unless (${1}) { - ${0} - } -# Unless conditional One-line -snippet xunless - ${1:expression} unless ${2:condition}; -# Try/Except -snippet eval - local $@; - eval { - ${1:# do something risky...} - }; - if (my $e = $@) { - ${0:# handle failure...} - } -# While Loop -snippet wh - while (${1}) { - ${0} - } -# While Loop One-line -snippet xwh - ${1:expression} while ${2:condition}; -# C-style For Loop -snippet cfor - for (my $${2:var} = 0; $$2 < ${1:count}; $$2${3:++}) { - ${0} - } -# For loop one-line -snippet xfor - ${1:expression} for @${2:array}; -# Foreach Loop -snippet for - foreach my $${1:x} (@${2:array}) { - ${0} - } -# Foreach Loop One-line -snippet fore - ${1:expression} foreach @${2:array}; -# Package -snippet package - package ${1:`substitute(vim_snippets#Filename('', 'Page Title'), '^.', '\u&', '')`}; - - ${0} - - 1; - - __END__ -# Package syntax perl >= 5.14 -snippet packagev514 - package ${1:`substitute(vim_snippets#Filename('', 'Page Title'), '^.', '\u&', '')`} ${2:0.99}; - - ${0} - - 1; - - __END__ -#moose -snippet moose - use Moose; - use namespace::autoclean; - ${1:#}BEGIN {extends '${2:ParentClass}'}; - - ${0} -# parent -snippet parent - use parent qw(${0:Parent Class}); -# Read File -snippet slurp - my $${1:var} = do { local $/; open my $file, '<', "${2:file}"; <$file> }; - ${0} -# strict warnings -snippet strwar - use strict; - use warnings; -# older versioning with perlcritic bypass -snippet vers - ## no critic - our $VERSION = '${0:version}'; - eval $VERSION; - ## use critic -# new 'switch' like feature -snippet switch - use feature 'switch'; - -# Anonymous subroutine -snippet asub - sub { - ${0} - } - - - -# Begin block -snippet begin - BEGIN { - ${0} - } - -# call package function with some parameter -snippet pkgmv - __PACKAGE__->${1:package_method}(${0:var}) - -# call package function without a parameter -snippet pkgm - __PACKAGE__->${0:package_method}() - -# call package "get_" function without a parameter -snippet pkget - __PACKAGE__->get_${0:package_method}() - -# call package function with a parameter -snippet pkgetv - __PACKAGE__->get_${1:package_method}(${0:var}) - -# complex regex -snippet qrx - qr/ - ${0:regex} - /xms - -#simpler regex -snippet qr/ - qr/${0:regex}/x - -#given -snippet given - given ($${1:var}) { - ${2:# cases} - ${0:# default} - } - -# switch-like case -snippet when - when (${1:case}) { - ${0} - } - -# hash slice -snippet hslice - @{ ${1:hash} }{ ${0:array} } - - -# map -snippet map - map { ${0: body } } ${1: @array } ; - - - -# Pod stub -snippet ppod - =head1 NAME - - ${1:ClassName} - ${2:ShortDesc} - - =head1 SYNOPSIS - - use $1; - - ${3:# synopsis...} - - =head1 DESCRIPTION - - ${0:# longer description...} - - - =head1 INTERFACE - - - =head1 DEPENDENCIES - - - =head1 SEE ALSO - - -# Heading for a subroutine stub -snippet psub - =head2 ${1:MethodName} - - ${0:Summary....} - -# Heading for inline subroutine pod -snippet psubi - =head2 ${1:MethodName} - - ${0:Summary...} - - - =cut -# inline documented subroutine -snippet subpod - =head2 $1 - - Summary of $1 - - =cut - - sub ${1:subroutine_name} { - ${0} - } -# Subroutine signature -snippet parg - =over 2 - - =item - Arguments - - - =over 3 - - =item - C<${1:DataStructure}> - - ${2:Sample} - - - =back - - - =item - Return - - =over 3 - - - =item - C<${0:...return data}> - - - =back - - - =back - - - -# Moose has -snippet has - has ${1:attribute} => ( - is => '${2:ro|rw}', - isa => '${3:Str|Int|HashRef|ArrayRef|etc}', - default => sub { - ${4:defaultvalue} - }, - ${0:# other attributes} - ); - - -# override -snippet override - override ${1:attribute} => sub { - ${2:# my $self = shift;}; - ${0:# my ($self, $args) = @_;}; - }; - - -# use test classes -snippet tuse - use Test::More; - use Test::Deep; # (); # uncomment to stop prototype errors - use Test::Exception; - -# local test lib -snippet tlib - use lib qw{ ./t/lib }; - -#test methods -snippet tmeths - $ENV{TEST_METHOD} = '${0:regex}'; - -# runtestclass -snippet trunner - use ${0:test_class}; - $1->runtests(); - -# Test::Class-style test -snippet tsub - sub t${1:number}_${2:test_case} :Test(${3:num_of_tests}) { - my $self = shift; - ${0} - - } - -# Test::Routine-style test -snippet trsub - test ${1:test_name} => { description => '${2:Description of test.}'} => sub { - my ($self) = @_; - ${0} - }; - -#prep test method -snippet tprep - sub prep${1:number}_${2:test_case} :Test(startup) { - my $self = shift; - ${0} - } - -# cause failures to print stack trace -snippet debug_trace - use Carp; # 'verbose'; - # cloak "die" - # warn "warning" - $SIG{'__DIE__'} = sub { - require Carp; Carp::confess - }; - -snippet dump - use Data::Dump qw(dump); - warn dump ${1:variable} - -snippet subtest - subtest '${1: test_name}' => sub { - ${2} - }; -- cgit v1.2.3