]> ruderich.org/simon Gitweb - config/dotfiles.git/blob - vim/ftplugin/perl/perl.xpt.vim
c2b431414596a7ab172573e0605c25685fdd370f
[config/dotfiles.git] / vim / ftplugin / perl / perl.xpt.vim
1 " vim: ft=xpt
2
3 " XPTemplate template file.
4 "
5 " Language:     Perl
6 " Maintainer:   Simon Ruderich <simon@ruderich.org>
7 " License:      GPL v3+
8
9 " Copyright (C) 2012-2014  Simon Ruderich
10 "
11 " This file is free software: you can redistribute it and/or modify
12 " it under the terms of the GNU General Public License as published by
13 " the Free Software Foundation, either version 3 of the License, or
14 " (at your option) any later version.
15 "
16 " This file is distributed in the hope that it will be useful,
17 " but WITHOUT ANY WARRANTY; without even the implied warranty of
18 " MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19 " GNU General Public License for more details.
20 "
21 " You should have received a copy of the GNU General Public License
22 " along with this file.  If not, see <http://www.gnu.org/licenses/>.
23
24
25 " Prevent errors if XPTemplate is not installed.
26 if !exists('g:XPT#ver')
27     finish
28 endif
29
30 XPTemplate priority=personal
31
32
33 XPT f
34 XSET description|post=S(V(), '^description$', 'XXX')
35 #!/usr/bin/perl
36
37 # `description^
38
39 # Copyright (C) `strftime("%Y")^  Simon Ruderich
40 #
41 # This program is free software: you can redistribute it and/or modify
42 # it under the terms of the GNU General Public License as published by
43 # the Free Software Foundation, either version 3 of the License, or
44 # (at your option) any later version.
45 #
46 # This program is distributed in the hope that it will be useful,
47 # but WITHOUT ANY WARRANTY; without even the implied warranty of
48 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
49 # GNU General Public License for more details.
50 #
51 # You should have received a copy of the GNU General Public License
52 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
53
54
55 use strict;
56 use warnings;
57
58
59 `cursor^
60
61
62 XPT p
63 print `value^;
64
65 XPT pe
66 print STDERR `value^;
67
68 XPT pd
69 print Dumper(`value^);
70
71
72 XPT u
73 use `package^;
74 `cursor^
75
76 XPT udd
77 use Data::Dumper;
78 `cursor^