xptemplate: use f as trigger to create the basic skeleton

[config/dotfiles.git] / vim / ftplugin / perl / perl.xpt.vim

diff --git a/vim/ftplugin/perl/perl.xpt.vim b/vim/ftplugin/perl/perl.xpt.vim
index aa197ebe6907b4c50c3794fc505564ceea0073ad..c2b431414596a7ab172573e0605c25685fdd370f 100644 (file)
--- a/vim/ftplugin/perl/perl.xpt.vim
+++ b/vim/ftplugin/perl/perl.xpt.vim
@@ -6,7 +6,7 @@
 " Maintainer:   Simon Ruderich <simon@ruderich.org>
 " License:      GPL v3+
 
-" Copyright (C) 2012  Simon Ruderich
+" Copyright (C) 2012-2014  Simon Ruderich
 "
 " This file is free software: you can redistribute it and/or modify
 " it under the terms of the GNU General Public License as published by
@@ -21,16 +21,22 @@
 " You should have received a copy of the GNU General Public License
 " along with this file.  If not, see <http://www.gnu.org/licenses/>.
 
+
+" Prevent errors if XPTemplate is not installed.
+if !exists('g:XPT#ver')
+    finish
+endif
+
 XPTemplate priority=personal
 
 
-XPT perl
-XSET year|def=strftime("%Y")
+XPT f
+XSET description|post=S(V(), '^description$', 'XXX')
 #!/usr/bin/perl
 
 # `description^
 
-# Copyright (C) `year^  Simon Ruderich
+# Copyright (C) `strftime("%Y")^  Simon Ruderich
 #
 # This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -51,3 +57,22 @@ use warnings;
 
 
 `cursor^
+
+
+XPT p
+print `value^;
+
+XPT pe
+print STDERR `value^;
+
+XPT pd
+print Dumper(`value^);
+
+
+XPT u
+use `package^;
+`cursor^
+
+XPT udd
+use Data::Dumper;
+`cursor^