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^