The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Reading database from ...


------------------------------------------ ------ ------ ------ ------ ------
File                                         stmt   bran   cond    sub  total
------------------------------------------ ------ ------ ------ ------ ------
tests/cond_xor                              100.0    n/a   66.6  100.0   87.1
Total                                       100.0    n/a   66.6  100.0   87.1
------------------------------------------ ------ ------ ------ ------ ------


Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...

tests/cond_xor

line  err   stmt   bran   cond    sub   code
1                                       #!/usr/bin/perl
2                                       
3                                       # Copyright 2002-2014, Paul Johnson (paul@pjcj.net)
4                                       
5                                       # This software is free.  It is licensed under the same terms as Perl itself.
6                                       
7                                       # The latest version of this software should be available from my homepage:
8                                       # http://www.pjcj.net
9                                       
10             1                    1   use strict;
               1                        
               1                        
11             1                    1   use warnings;
               1                        
               1                        
12                                      
13             1                        my $i = 1;
14             1                        my $j = 0;
15                                      
16             1                        for my $y (0, 1, 1, 1) {
               4                        
17             4                            for my $z (0, 0, 1) {
              12                        
18            12                                my $x = $y ^ $z;
19            12           100                  $x = ($y xor $z);
20                                      
21    ***     12            50                  my $p = ($i xor $y);
22    ***     12            50                  $p = ($j xor $y);
23            12                                $p ^= $y;
24                                          }
25                                      }


Conditions
----------

xor 4 conditions

line  err      %   l&&r  l&&!r  !l&&r !l&&!r   expr
----- --- ------ ------ ------ ------ ------   ----
19           100      3      6      1      2   $y xor $z
21    ***     50      9      3      0      0   $i xor $y
22    ***     50      0      0      9      3   $j xor $y


Covered Subroutines
-------------------

Subroutine Count Location         
---------- ----- -----------------
BEGIN          1 tests/cond_xor:10
BEGIN          1 tests/cond_xor:11