9 @list = ($foo, $bar, $baz);
10 @list = some_function($foo, $bar, $baz);
23 # not a straight assignment
30 #-----------------------------------------------------------------------------
50 #-----------------------------------------------------------------------------
52 ## name List assignment
70 #-----------------------------------------------------------------------------
72 ## name Conditionals and mathematical precedence
86 # These were reported as false-positives.
87 # See http://rt.cpan.org/Ticket/Display.html?id=18297
89 $median = ( $times[ int $array_size / 2 ] +
90 $times[(int $array_size / 2) - 1 ]) / 2;
92 $median = ( $times[ int $array_size / 2 ] +
93 $times[ int $array_size / 2 - 1 ]) / 2;
95 #-----------------------------------------------------------------------------
106 #-----------------------------------------------------------------------------
108 ##############################################################################
109 # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/CodeLayout/RequireTrailingCommas.run $
110 # $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
111 # $Author: clonezone $
113 ##############################################################################
117 # cperl-indent-level: 4
119 # indent-tabs-mode: nil
120 # c-indentation-style: bsd
122 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :