##############################################################################
#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/ProhibitMixedBooleanOperators.run $
#     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
#   $Author: clonezone $
# $Revision: 2187 $
##############################################################################
## name High-precedence passing
## failures 0
## cut
next if ! $finished || $foo < $bar;
if( $foo && !$bar || $baz){ do_something() }
this() && !that() || the_other(); 
#-----------------------------------------------------------------------------
## name Low-precedence passing
## failures 0
## cut
next if not $finished or $foo < $bar;
if( $foo and not $bar or $baz){ do_something() }
this() and not that() or the_other(); 
#-----------------------------------------------------------------------------
## name Basic failure
## failures 3
## cut
next if not $finished || $foo < $bar;
if( $foo && not $bar or $baz){ do_something() }
this() and ! that() or the_other(); 
#-----------------------------------------------------------------------------
## name High-precedence with low precedence self-equals
## failures 0
## cut
$sub ||= sub {
   return 1 and 2;
};
#-----------------------------------------------------------------------------
## name Mixed booleans in same statement, but different expressions
## failures 0
## cut
# See http://rt.cpan.org/Ticket/Display.html?id=27637
ok( ! 1, 'values are URLs' ) or diag 'never happens';
#-----------------------------------------------------------------------------
## name Mixed booleans in code blocks
## failures 0
## cut
eval {
    if (1 || 2) {
        return not 3;
    }
};
##############################################################################
# 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 :