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

   1 ## name No POD
   2 ## failures 0
   3 ## cut
   4 print 'Hello World';
   5
   6 #-----------------------------------------------------------------------------
   7
   8 ## name Script
   9 ## failures 0
  10 ## cut
  11 #!/usr/bin/perl
  12 print 'Hello World';
  13
  14 =pod
  15
  16 =head1 NAME
  17
  18 helloworld.pl - Greetings!
  19
  20 =cut
  21
  22 #-----------------------------------------------------------------------------
  23
  24 ## name No name
  25 ## failures 0
  26 ## cut
  27 =pod
  28
  29 =head1 DESCRIPTION
  30
  31 =cut
  32
  33 #-----------------------------------------------------------------------------
  34
  35 ## name Empty name
  36 ## failures 1
  37 ## cut
  38 package Foo;
  39
  40 =pod
  41
  42 =head1 NAME
  43
  44 =head1 DESCRIPTION
  45
  46 Blah...
  47
  48 =cut
  49
  50 #-----------------------------------------------------------------------------
  51
  52 ## name Name without package
  53 ## failures 1
  54 ## cut
  55
  56 =pod
  57
  58 =head1 NAME
  59
  60 Foo - A module that does stuff
  61
  62 =head1 DESCRIPTION
  63
  64 Blah...
  65
  66 =cut
  67
  68 #-----------------------------------------------------------------------------
  69
  70 ## name Name doesn't match package
  71 ## failures 1
  72 ## cut
  73 package Foo;
  74
  75 =pod
  76
  77 =head1 NAME
  78
  79 Bar - a module that does something else
  80
  81 =head1 DESCRIPTION
  82
  83 Blah...
  84
  85 =cut
  86
  87 #-----------------------------------------------------------------------------
  88
  89 ## name A good match
  90 ## failures 0
  91 ## cut
  92 package Foo;
  93
  94 =pod
  95
  96 =head1 NAME
  97
  98 Foo - A module that does stuff
  99
 100 =head1 DESCRIPTION
 101
 102 Blah...
 103
 104 =cut
 105
 106 #-----------------------------------------------------------------------------
 107
 108 ## name Almost a match
 109 ## failures 1
 110 ## cut
 111 package Foo;
 112
 113 =pod
 114
 115 =head1 NAME
 116
 117 Foo! - A module that does stuff
 118
 119 =head1 DESCRIPTION
 120
 121 Blah...
 122
 123 =cut
 124
 125 #-----------------------------------------------------------------------------
 126
 127 ## name A good match with C<>
 128 ## failures 0
 129 ## cut
 130 package Foo;
 131
 132 =pod
 133
 134 =head1 NAME
 135
 136 C<Foo> - A module that does stuff
 137
 138 =head1 DESCRIPTION
 139
 140 Blah...
 141
 142 =cut
 143
 144 #-----------------------------------------------------------------------------
 145
 146 ## name A good match with L<>
 147 ## failures 0
 148 ## cut
 149 package Foo;
 150
 151 =pod
 152
 153 =head1 NAME
 154
 155 L<Foo> - A module that does stuff
 156
 157 =head1 DESCRIPTION
 158
 159 Blah...
 160
 161 =cut
 162
 163 #-----------------------------------------------------------------------------
 164
 165 ## name Multiple packages
 166 ## failures 0
 167 ## cut
 168 package Foo;
 169 package Bar;
 170 package main;
 171
 172 =pod
 173
 174 =head1 NAME
 175
 176 Foo - A module that does stuff
 177
 178 =head1 DESCRIPTION
 179
 180 Blah...
 181
 182 =cut
 183
 184 #-----------------------------------------------------------------------------
 185
 186 ## name Multiple packages and bad
 187 ## failures 1
 188 ## cut
 189 package Foo;
 190 package Bar;
 191 package main;
 192
 193 =pod
 194
 195 =head1 NAME
 196
 197 Bar - A module that does stuff
 198
 199 =head1 DESCRIPTION
 200
 201 Blah...
 202
 203 =cut
 204
 205 #-----------------------------------------------------------------------------
 206
 207 ## name Perl 4
 208 ## failures 0
 209 ## cut
 210 package Foo'Bar;
 211
 212 =pod
 213
 214 =head1 NAME
 215
 216 Foo::Bar - A module that does stuff
 217
 218 =head1 DESCRIPTION
 219
 220 Blah...
 221
 222 =cut
 223
 224 #-----------------------------------------------------------------------------
 225
 226 ## name Whitespace
 227 ## failures 0
 228 ## cut
 229 package Foo;
 230
 231 =pod
 232
 233 =head1       NAME
 234
 235
 236
 237
 238
 239
 240 Foo - A module that does stuff
 241
 242 =head1 DESCRIPTION
 243
 244 Blah...
 245
 246 =cut
 247
 248 ##############################################################################
 249 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Documentation/RequirePackageMatchesPodName.run $
 250 #     $Date: 2008-06-05 22:24:36 -0500 (Thu, 05 Jun 2008) $
 251 #   $Author: chrisdolan $
 252 # $Revision: 2414 $
 253 ##############################################################################
 254
 255 # Local Variables:
 256 #   mode: cperl
 257 #   cperl-indent-level: 4
 258 #   fill-column: 78
 259 #   indent-tabs-mode: nil
 260 #   c-indentation-style: bsd
 261 # End:
 262 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :