Reading database from /home/pjcj/g/perl/svk/dc/cover_db


------------------------------------------ ------ ------ ------ ------ ------
File                                         stmt   bran   cond    sub  total
------------------------------------------ ------ ------ ------ ------ ------
tests/t0                                     92.3   62.5   66.7    n/a   79.2
Total                                        92.3   62.5   66.7    n/a   79.2
------------------------------------------ ------ ------ ------ ------ ------


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

tests/t0

line  err   stmt   bran   cond    sub   code
1                                       #!/usr/bin/perl
2                                       
3                                       # Copyright 2002-2007, 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                                      
17             1                        for (0 .. 10)
              11                        
18                                      {
19    ***     11     50                   $y &&
20                                          $x[1]++;
21                                      
22    ***     11    100     66            $y &&
23                                          $x[0]++ &&
24                                          $x[1]++;
25                                      
26    ***     11     50                   $x[2]++
27                                          if $y;
28                                      
29            11                          for (0 .. 2)
              33                        
30                                        {
31            33                              $x[3]++;
32                                        }
33                                      
34    ***     11     50                   if ($y)
35                                        {
36            11                            $x[4]++;
37                                        }
38                                        else
39                                        {
40    ***      0                            $x[5]++;
41                                        }
42                                      }
43                                      
44                                      # print join(", ", @x), "\n";


Branches
--------

line  err      %   true  false   branch
----- --- ------ ------ ------   ------
19    ***     50     11      0   if $y
22           100     10      1   if $y and $x[0]++
26    ***     50     11      0   if $y
34    ***     50     11      0   if ($y) { }


Conditions
----------

and 3 conditions

line  err      %     !l  l&&!r   l&&r   expr
----- --- ------ ------ ------ ------   ----
22    ***     66      0      1     10   $y and $x[0]++