vim/UltiSnips
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adjusted perl snippets for some best practices

Browse Source
This commit is contained in:
Steven Humphrey 2012-12-18 09:26:56 +00:00
parent 86dcbf0a27
commit fed052c80a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
UltiSnips/perl.snippets
View File

@ -49,7 +49,7 @@ ${1:expression} while ${2:condition};
endsnippet endsnippet
snippet test "Test" snippet test "Test"
#!/usr/bin/perl -w #!/usr/bin/env perl -w
use strict; use strict;
use Test::More tests => ${1:1}; use Test::More tests => ${1:1};
@ -105,8 +105,7 @@ if ($1) {
endsnippet endsnippet
snippet slurp "slurp" snippet slurp "slurp"
my $${1:var}; my $${1:var} = do { local $/ = undef; open my $fh, '<', ${2:$file}; <$fh> };
{ local $/ = undef; local *FILE; open FILE, "<${2:file}"; $$1 = <FILE>; close FILE }
endsnippet endsnippet