1 ## name one statement before strict
8 #-----------------------------------------------------------------------------
10 ## name several statements before strict
14 $foo = $bar; ## This one violates.
15 $baz = $nuts; ## no critic; This one is exempted
16 $blamo; ## This one should be squelched
19 #-----------------------------------------------------------------------------
21 ## name several statements before strict with maximum violations changed
23 ## parms { maximum_violations_per_document => 2 }
26 $foo = $bar; ## This one violates.
27 $baz = $nuts; ## This one violates.
28 $blamo; ## This one should be squelched
31 #-----------------------------------------------------------------------------
33 ## name no strict at all
39 #-----------------------------------------------------------------------------
41 ## name require strict
48 #-----------------------------------------------------------------------------
50 ## name strictures used, but no code
56 #-----------------------------------------------------------------------------
58 ## name no strict at all, w/END
64 #Should not find the rest of these
70 Foo - A Foo factory class
74 #-----------------------------------------------------------------------------
76 ## name no strict at all, w/DATA
82 #Should not find the rest of these
90 #-----------------------------------------------------------------------------
92 ## name strictures used OK
99 #-----------------------------------------------------------------------------
101 ## name other module included before strict
109 #-----------------------------------------------------------------------------
111 ## name package statement before strict
119 #-----------------------------------------------------------------------------
121 ## name Work around a PPI bug that doesn't return a location for C<({})>.
127 #-----------------------------------------------------------------------------
129 ## name Moose support
136 #-----------------------------------------------------------------------------
138 ## name Moose::Role support
145 #-----------------------------------------------------------------------------
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 $
152 ##############################################################################
156 # cperl-indent-level: 4
158 # indent-tabs-mode: nil
159 # c-indentation-style: bsd
161 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :