Login
Fix a few miscellaneous self violations
[gknop/Perl-Critic.git] / t / ValuesAndExpressions / ProhibitMixedBooleanOperators.run
index 7597a54..7de22c5 100644 (file)
@@ -55,6 +55,17 @@ $sub ||= sub {
 # 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
+## TODO Statements inside of code blocks are not distinguished
+## cut
+
+eval {
+    if (1 || 2) {
+        return not 3;
+    }
+};
+
 ##############################################################################
 # Local Variables:
 #   mode: cperl