git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/Documentation/RequirePodAtEnd.run

   1 ## name No code at all
   2 ## failures 0
   3 ## cut
   4
   5 #Nothing!  No code!
   6
   7 #-----------------------------------------------------------------------------
   8
   9 ## name Just an END section
  10 ## failures 0
  11 ## cut
  12 __END__
  13 #Nothing!
  14
  15 #-----------------------------------------------------------------------------
  16
  17 ## name only one pod section
  18 ## failures 1
  19 ## cut
  20 =head1 Foo
  21
  22 =cut
  23
  24 #-----------------------------------------------------------------------------
  25
  26 ## name only one pod section, at the end
  27 ## failures 0
  28 ## cut
  29 __END__
  30
  31 =head1 Foo
  32
  33 =cut
  34 #-----------------------------------------------------------------------------
  35
  36 ## name some pod sections OK not at the end
  37 ## failures 0
  38 ## cut
  39
  40 =for comment
  41 This POD is ok
  42 =cut
  43
  44 __END__
  45
  46 =head1 Foo
  47
  48 =cut
  49
  50 #-----------------------------------------------------------------------------
  51
  52 ## name but main pod still has to be at the end
  53 ## failures 1
  54 ## cut
  55
  56 =for comment
  57 This POD is ok
  58 =cut
  59
  60 =head1 Foo
  61
  62 This POD is illegal
  63
  64 =cut
  65
  66 =begin comment
  67
  68 This POD is ok
  69
  70 This POD is also ok
  71
  72 =end comment
  73
  74 =cut
  75
  76 __END__
  77
  78 =head1 Bar
  79
  80 =cut
  81
  82 #-----------------------------------------------------------------------------
  83
  84 ## name more =for exceptions
  85 ## failures 0
  86 ## cut
  87
  88 =for comment
  89 This is a one-line comment
  90
  91 =cut
  92
  93 my $baz = 'nuts';
  94
  95 __END__
  96
  97
  98 #-----------------------------------------------------------------------------
  99
 100 ## name =begin exceptions
 101 ## failures 0
 102 ## cut
 103
 104 =begin comment
 105
 106 Multi-paragraph comment
 107
 108 Mutli-paragrapm comment
 109
 110 =end comment
 111
 112 =cut
 113
 114 __END__
 115
 116
 117 ##############################################################################
 118 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Documentation/RequirePodAtEnd.run $
 119 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
 120 #   $Author: clonezone $
 121 # $Revision: 2187 $
 122 ##############################################################################
 123
 124 # Local Variables:
 125 #   mode: cperl
 126 #   cperl-indent-level: 4
 127 #   fill-column: 78
 128 #   indent-tabs-mode: nil
 129 #   c-indentation-style: bsd
 130 # End:
 131 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :