1 ##############################################################################
2 # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Subroutines/RequireArgUnpacking.run $
3 # $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
6 ##############################################################################
15 my ($self, $bar) = @_;
27 #-----------------------------------------------------------------------------
29 ## name prototype passes
38 #-----------------------------------------------------------------------------
40 ## name scheduled subs
68 #-----------------------------------------------------------------------------
70 ## name passes - no arguments
78 #-----------------------------------------------------------------------------
80 ## name failure - not idiomatic enough
94 #-----------------------------------------------------------------------------
96 ## name basic failures
111 #-----------------------------------------------------------------------------
113 ## name failure in an anonymous sub
115 ## TODO PPI v1.118 doesn't recognize anonymous subroutines
125 #-----------------------------------------------------------------------------
127 ## name basic failures, set config higher
129 ## parms {short_subroutine_statements => 1}
143 #-----------------------------------------------------------------------------
145 ## name mixed failures
165 #-----------------------------------------------------------------------------
167 ## name nested anon sub
179 #-----------------------------------------------------------------------------
181 ## name nested name sub
194 #-----------------------------------------------------------------------------
197 # cperl-indent-level: 4
199 # indent-tabs-mode: nil
200 # c-indentation-style: bsd
202 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :