Select Code to Download

package Perl::Critic::Policy::ControlStructures::ProhibitShiftLoopCond
+ition;
use strict;
use warnings;
...
license, terms and EVERYTHING ELSE, same as Perl/Perl::Critic...

=cut

## count of violations 11 below
while( my $foo = shift @$array ){ ... }
while( my $foo = shift $array ){ ... }
...
for( (my @mon = 1..3),(my @day= 8..10); @mon || @day; shift @mon, pop 
+@day){ for my $mon (@mon){ printf q{ %2s %2s |}, $mon,$_ for @day; } 
+print "\n" }
for(my @months = 1..10; @months; shift @months ){ print "@months\n$mon
+ths[0]\n\n"; }