diff options
Diffstat (limited to 'vim/snippets/perl.snippets')
-rw-r--r-- | vim/snippets/perl.snippets | 123 |
1 files changed, 0 insertions, 123 deletions
diff --git a/vim/snippets/perl.snippets b/vim/snippets/perl.snippets deleted file mode 100644 index d522f63..0000000 --- a/vim/snippets/perl.snippets +++ /dev/null @@ -1,123 +0,0 @@ -snippet tbl - local $Test::Builder::Level = $Test::Builder::Level + 1; -snippet ccl - local $Carp::CarpLevel = $Carp::CarpLevel + 1; -snippet linc - local $${1:a} = $$1 + ${2:1}; - ${0} -snippet script - #!/usr/bin/env perl - use strict; - use warnings; - - ${0} -snippet test - #!/usr/bin/env perl - use strict; - use warnings; - use Test::More; - - ${0} - - done_testing; -snippet sub - sub ${1:foo} { - ${0} - } -snippet wd - use Data::Dump; ddx(${1}); - ${0} -snippet wdd - use Data::Dump; push @Data::Dump::FILTERS, sub { return {dump => "$_[1]"} if $_[0]->depth > ${1:1} }; ddx(${2}); - ${0} -snippet package - package ${1:`substitute(matchstr(expand("%"), '^lib/\zs.*\ze\.pm'), '/', '::', 'g')`}; - use strict; - use warnings; - - ${0} - - 1; -snippet test_psgi - test_psgi - app => ${1:MyApp}->new->to_app, - client => sub { - my $cb = shift; - - { - ${0} - } - }; -# -# Moose -# -snippet class - package ${1:`substitute(matchstr(expand("%"), '^lib/\zs.*\ze\.pm'), '/', '::', 'g')`}; - use Moose; - - ${0} - - __PACKAGE__->meta->make_immutable; - no Moose; - - 1; -# XXX: ideally, this would be merged with the one above, but we need posthooks -# for that to happen. also, some way to get the extends line to update with -# the package line would be nice, maybe? -snippet subclass - package ${1:`substitute(matchstr(expand("%"), '^lib/\zs.*\ze\.pm'), '/', '::', 'g')`}; - use Moose; - extends '${2:`matchstr(substitute(matchstr(expand("%"), '^lib/\zs.*\ze\.pm'), '/', '::', 'g'), '.*\ze::.*')`}'; - - ${0} - - __PACKAGE__->meta->make_immutable; - no Moose; - - 1; -snippet role - package ${1:`substitute(matchstr(expand("%"), '^lib/\zs.*\ze\.pm'), '/', '::', 'g')`}; - use Moose::Role; - - ${0} - - no Moose::Role; - - 1; -snippet has - has ${1:attr} => ( - is => '${2:ro}', - isa => '${3:Str}',${0} - ); -snippet hasl - has ${1:attr} => ( - is => '${2:ro}', - isa => '${3:Str}', - lazy_build => 1,${4} - ); - - sub _build_$1 { - my $self = shift; - ${0} - } -snippet m - sub ${1:foo} { - my $self = shift; - ${0} - } -snippet around - around ${1:foo} => sub { - my $orig = shift; - my $self = shift; - ${0} - }; -snippet after - after ${1:foo} => sub { - my $self = shift; - ${0} - }; -snippet before - before ${1:foo} => sub { - my $self = shift; - ${0} - }; |