git.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/TestingAndDebugging/RequireUseStrict.run

   1 ## name one statement before strict
   2 ## failures 1
   3 ## cut
   4
   5 $foo = $bar;
   6 use strict;
   7
   8 #-----------------------------------------------------------------------------
   9
  10 ## name several statements before strict
  11 ## failures 1
  12 ## cut
  13
  14 $foo = $bar;   ## This one violates.
  15 $baz = $nuts;  ## no critic;  This one is exempted
  16 $blamo;        ## This one should be squelched
  17 use strict;
  18
  19 #-----------------------------------------------------------------------------
  20
  21 ## name several statements before strict with maximum violations changed
  22 ## failures 2
  23 ## parms { maximum_violations_per_document => 2 }
  24 ## cut
  25
  26 $foo = $bar;   ## This one violates.
  27 $baz = $nuts;  ## This one violates.
  28 $blamo;        ## This one should be squelched
  29 use strict;
  30
  31 #-----------------------------------------------------------------------------
  32
  33 ## name no strict at all
  34 ## failures 1
  35 ## cut
  36
  37 $foo = $bar;
  38
  39 #-----------------------------------------------------------------------------
  40
  41 ## name require strict
  42 ## failures 1
  43 ## cut
  44
  45 require strict;
  46 1;
  47
  48 #-----------------------------------------------------------------------------
  49
  50 ## name strictures used, but no code
  51 ## failures 0
  52 ## cut
  53
  54 use strict;
  55
  56 #-----------------------------------------------------------------------------
  57
  58 ## name no strict at all, w/END
  59 ## failures 1
  60 ## cut
  61
  62 $foo = $bar;
  63
  64 #Should not find the rest of these
  65
  66 __END__
  67
  68 =head1 NAME
  69
  70 Foo - A Foo factory class
  71
  72 =cut
  73
  74 #-----------------------------------------------------------------------------
  75
  76 ## name no strict at all, w/DATA
  77 ## failures 1
  78 ## cut
  79
  80 $foo = $bar;
  81
  82 #Should not find the rest of these
  83
  84 __DATA__
  85
  86 Fred
  87 Barney
  88 Wilma
  89
  90 #-----------------------------------------------------------------------------
  91
  92 ## name strictures used OK
  93 ## failures 0
  94 ## cut
  95
  96 use strict;
  97 $foo = $bar;
  98
  99 #-----------------------------------------------------------------------------
 100
 101 ## name other module included before strict
 102 ## failures 0
 103 ## cut
 104
 105 use Module;
 106 use strict;
 107 $foo = $bar;
 108
 109 #-----------------------------------------------------------------------------
 110
 111 ## name package statement before strict
 112 ## failures 0
 113 ## cut
 114
 115 package FOO;
 116 use strict;
 117 $foo = $bar;
 118
 119 #-----------------------------------------------------------------------------
 120
 121 ## name Work around a PPI bug that doesn't return a location for C<({})>.
 122 ## failures 1
 123 ## cut
 124
 125 ({})
 126
 127 #-----------------------------------------------------------------------------
 128
 129 ## name Moose support
 130 ## failures 0
 131 ## cut
 132
 133 use Moose;
 134 $foo = $bar;
 135
 136 #-----------------------------------------------------------------------------
 137
 138 ## name Moose::Role support
 139 ## failures 0
 140 ## cut
 141
 142 use Moose::Role;
 143 $foo = $bar;
 144
 145 #-----------------------------------------------------------------------------
 146
 147 ##############################################################################
 148 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/TestingAndDebugging/RequireUseStrict.run $
 149 #     $Date: 2008-04-13 21:16:24 -0500 (Sun, 13 Apr 2008) $
 150 #   $Author: clonezone $
 151 # $Revision: 2242 $
 152 ##############################################################################
 153
 154 # Local Variables:
 155 #   mode: cperl
 156 #   cperl-indent-level: 4
 157 #   fill-column: 78
 158 #   indent-tabs-mode: nil
 159 #   c-indentation-style: bsd
 160 # End:
 161 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :