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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 BEGIN       { $x = 1; }
   6 END         { $x = 1; }
   7 CHECK       { $x = 1; }
   8 INIT        { $x = 1; }
   9 UNITCHECK   { $x = 1; }
  10
  11 #-----------------------------------------------------------------------------
  12
  13 ## name Failure, cuddled colon
  14 ## failures 5
  15 ## cut
  16
  17 BEGIN:      { $x = 1; }
  18 END:        { $x = 1; }
  19 CHECK:      { $x = 1; }
  20 INIT:       { $x = 1; }
  21 UNITCHECK:  { $x = 1; }
  22
  23 #-----------------------------------------------------------------------------
  24
  25 ## name Failure, uncuddled colon
  26 ## failures 5
  27 ## cut
  28
  29 BEGIN :     { $x = 1; }
  30 END :       { $x = 1; }
  31 CHECK :     { $x = 1; }
  32 INIT :      { $x = 1; }
  33 UNITCHECK : { $x = 1; }
  34
  35 #-----------------------------------------------------------------------------
  36
  37 ##############################################################################
  38 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ControlStructures/ProhibitLabelsWithSpecialBlockNames.run $
  39 #     $Date: 2008-05-13 22:08:28 -0500 (Tue, 13 May 2008) $
  40 #   $Author: clonezone $
  41 # $Revision: 2337 $
  42 ##############################################################################
  43
  44 # Local Variables:
  45 #   mode: cperl
  46 #   cperl-indent-level: 4
  47 #   fill-column: 78
  48 #   indent-tabs-mode: nil
  49 #   c-indentation-style: bsd
  50 # End:
  51 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :