Reading database from cover_db


------------------------------------------------- ------ ------ ------ ------
File                                                stmt branch   cond  total
------------------------------------------------- ------ ------ ------ ------
tests/cond_or                                      95.45  50.00  43.48  66.04
Total                                              95.45  50.00  43.48  66.04
------------------------------------------------- ------ ------ ------ ------


tests/cond_or

line  err   stmt branch   cond   code
1                                #!/usr/local/bin/perl
2                                
3                                # Copyright 2002, Paul Johnson (pjcj@cpan.org)
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                               use strict;
11                               use warnings;
12                               
13             1                 my @x;
14                               
15             1                 my $y = 1;
16             1                 my $z = 0;
17                               
18             1                 for (0 .. 10)
              11                 
19                               {
20    ***     11     50            $y ||
21                                   $x[1]++;
22                               
23    ***     11     50     33     $y ||
24                                   $x[0]++ ||
25                                   $x[1]++;
26                               
27    ***     11     50            $x[2]++
28                                   unless $z;
29                               
30            11                   for (0 .. 2)
              33                 
31                                 {
32            33                       $x[3]++;
33                                 }
34                               
35    ***     11     50            if ($z)
36                                 {
37    ***      0                     $x[4]++;
38                                 }
39                                 else
40                                 {
41            11                     $x[5]++;
42                                 }
43                               
44    ***     11            33     my $p = $y || $z;
45    ***     11            33     my $q = $z || $y;
46            11           100     my $r = $_ || "qqq";
47            11                   my $s = $y | $z;
48                               
49    ***     11            33     $p ||= $y;
50    ***     11            33     $p ||= $z;
51    ***     11            66     $x[6] ||= $y;
52    ***     11            33     $x[7] ||= $z;
53                               }
54                               
55                               # print join(", ", @x), "\n";


Branches
--------

line  err      %   true  false   branch
----- --- ------ ------ ------   ------
20    ***     50     11      0   unless $y
23    ***     50     11      0   unless $y or $x[0]++
27    ***     50      0     11   unless $z
35    ***     50      0     11   if ($z) { }


Conditions
----------

or 2 conditions

line  err      %      l     !l   expr
----- --- ------ ------ ------   ----
46           100     10      1   $_ || 'qqq'

or 3 conditions

line  err      %      l  !l&&r !l&&!r   expr
----- --- ------ ------ ------ ------   ----
23    ***     33     11      0      0   $y or $x[0]++
44    ***     33     11      0      0   $y || $z
45    ***     33      0     11      0   $z || $y
49    ***     33     11      0      0   $p ||= $y
50    ***     33     11      0      0   $p ||= $z
51    ***     66     10      1      0   $x[6] ||= $y
52    ***     33      0      0     11   $x[7] ||= $z