1Reading database from ...
2
3
4----------------------- ------ ------ ------ ------ ------
5File                      stmt   bran   cond    sub  total
6----------------------- ------ ------ ------ ------ ------
7tests/module_statements   75.8   50.0    n/a   66.6   72.5
8Total                     75.8   50.0    n/a   66.6   72.5
9----------------------- ------ ------ ------ ------ ------
10
11
12Run: ...
13Perl version: ...
14OS: ...
15Start: ...
16Finish: ...
17
18tests/module_statements
19
20line  err   stmt   bran   cond    sub   code
211                                       #!/usr/bin/perl
222
233                                       # Copyright 2002-2019, Paul Johnson (paul@pjcj.net)
244
255                                       # This software is free.  It is licensed under the same terms as Perl itself.
266
277                                       # The latest version of this software should be available from my homepage:
288                                       # http://www.pjcj.net
299
3010                                      # __COVER__ changes s/56.3/56.2/
3111
3212             1                    1   use strict;
33               1
34               1
3513             1                    1   use warnings;
36               1
37               1
3814
3915             1                    1   use lib "tests";
40               1
41               1
4216
4317             1                    1   use Module1;
44               1
45               1
4618
4719             1                        my @x;
4820
4921                                      sub xx {
5022            11                   11       $x[shift]++;
5123            11                            Module1::zz(0);
5224                                      }
5325
5426             1                        for (0 .. 10) {
5527    ***     11     50                     if (time) {
5628            11                                xx(0);
5729                                          } else {
5830    ***      0                                $x[1]++;
5931                                          }
6032                                      }
6133
6234                                      package Module1;
6335
6436             1                        my $y = 7;
6537             1                        $y++;
6638
6739                                      sub _aa {
6840    ***      0                    0       $y++;
6941    ***      0                            die;
7042    ***      0                            die;
7143                                      }
7244
7345                                      sub xx {
7446    ***      0                    0       $y++;
7547    ***      0                            die;
7648                                      }
7749
7850                                      sub yy {
7951    ***      0                    0       $y++;
8052                                      }
8153
8254                                      sub zz {
8355            11                   11       my $x = shift;
8456            11                            $x++;
8557                                      }
8658
8759                                      1
8860
8961                                      __END__
90
91
92Branches
93--------
94
95line  err      %   true  false   branch
96----- --- ------ ------ ------   ------
9727    ***     50     11      0   if (time) { }
98
99
100Covered Subroutines
101-------------------
102
103Subroutine Count Location
104---------- ----- --------------------------
105BEGIN          1 tests/module_statements:12
106BEGIN          1 tests/module_statements:13
107BEGIN          1 tests/module_statements:15
108BEGIN          1 tests/module_statements:17
109xx            11 tests/module_statements:22
110zz            11 tests/module_statements:55
111
112Uncovered Subroutines
113---------------------
114
115Subroutine Count Location
116---------- ----- --------------------------
117_aa            0 tests/module_statements:40
118xx             0 tests/module_statements:46
119yy             0 tests/module_statements:51
120
121
122