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