## name Normal assigment ok
## failures 0
## cut
my $foo = 0;
my @bar = ( 'x', 'y', 'z' );
#-----------------------------------------------------------------------------
## name Normal assigment with operators ok
## failures 0
## cut
my $foo = 0+0;
my @bar = ( 'x', 'y', 'z' );
my $baz = { my $x = 1; $x += 1; $x /= 1; }
my ( $a, $b ) = ( 0, 0 );
#-----------------------------------------------------------------------------
## name Real-life regression tests
## failures 0
## cut
my $exception_class = ($exception_class_for{$class} ||= $class->exception_class);
my $exception_class = $exception_class_for{$class} ||= $class->exception_class;
my $feature = ${*$ftp}{net_ftp_feature} ||= do { my @feat; @feat = map { /^\s+(.*\S)/ } $ftp->message if $ftp->_FEAT; \@feat; };
my $tests = $self->{tests} ||= {};
my $attr = $_[0]->{A}->{$attrName} ||= new XML::XQL::DirAttr (Parent => $self, Name => $attrName);
#-----------------------------------------------------------------------------
## name Scalar augmented assignment
## failures 64
## cut
my $foo **= 0;
my $foo += 0;
my $foo -= 0;
my $foo .= 0;
my $foo *= 0;
my $foo /= 0;
my $foo %= 0;
my $foo x= 0;
my $foo &= 0;
my $foo |= 0;
my $foo ^= 0;
my $foo <<= 0;
my $foo >>= 0;
my $foo &&= 0;
my $foo ||= 0;
my $foo //= 0;
local $foo **= 0;
local $foo += 0;
local $foo -= 0;
local $foo .= 0;
local $foo *= 0;
local $foo /= 0;
local $foo %= 0;
local $foo x= 0;
local $foo &= 0;
local $foo |= 0;
local $foo ^= 0;
local $foo <<= 0;
local $foo >>= 0;
local $foo &&= 0;
local $foo ||= 0;
local $foo //= 0;
our $foo **= 0;
our $foo += 0;
our $foo -= 0;
our $foo .= 0;
our $foo *= 0;
our $foo /= 0;
our $foo %= 0;
our $foo x= 0;
our $foo &= 0;
our $foo |= 0;
our $foo ^= 0;
our $foo <<= 0;
our $foo >>= 0;
our $foo &&= 0;
our $foo ||= 0;
our $foo //= 0;
state $foo **= 0;
state $foo += 0;
state $foo -= 0;
state $foo .= 0;
state $foo *= 0;
state $foo /= 0;
state $foo %= 0;
state $foo x= 0;
state $foo &= 0;
state $foo |= 0;
state $foo ^= 0;
state $foo <<= 0;
state $foo >>= 0;
state $foo &&= 0;
state $foo ||= 0;
state $foo //= 0;
#-----------------------------------------------------------------------------
## name Real-life examples
## failures 8
## cut
local $Carp::CarpLevel += $level;
local $Carp::CarpLevel += ($lvl + 1);
*$func = sub { local $Carp::CarpLevel += 2 if grep { $_ eq $func } @EXPORT_OK;
my $name .= $param->value('Name') ;
my $curr += ord( lc($char) ) - ord('a') + 1;
my $port ||= $port_memoized || $ENV{APACHE_TEST_PORT} || $self->{vars}{port} || DEFAULT_PORT;
my $output .= '<?' . $_[0]->getNodeName;
my $data .= &stripzerobytes(inet_aton($self->address()));
##############################################################################
# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/t/Variables/ProhibitAugmentedAssignmentInDeclaration.run $
# $Date: 2011-12-21 14:30:04 -0800 (Wed, 21 Dec 2011) $
# $Author: thaljef $
# $Revision: 4105 $
##############################################################################
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# indent-tabs-mode: nil
# c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :