Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
tests/module_statements 75.8 50.0 n/a 66.6 72.5
Total 75.8 50.0 n/a 66.6 72.5
------------------------------------------ ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/module_statements
line err stmt bran cond sub code
1 #!/usr/bin/perl
2
3 # Copyright 2002-2017, 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 # __COVER__ changes s/56.3/56.2/
11
12 1 1 use strict;
1
1
13 1 1 use warnings;
1
1
14
15 1 1 use lib "tests";
1
1
16
17 1 1 use Module1;
1
1
18
19 1 my @x;
20
21 sub xx {
22 11 11 $x[shift]++;
23 11 Module1::zz(0);
24 }
25
26 1 for (0 .. 10) {
27 *** 11 50 if (time) {
28 11 xx(0);
29 } else {
30 *** 0 $x[1]++;
31 }
32 }
33
34 package Module1;
35
36 1 my $y = 7;
37 1 $y++;
38
39 sub _aa {
40 *** 0 0 $y++;
41 *** 0 die;
42 *** 0 die;
43 }
44
45 sub xx {
46 *** 0 0 $y++;
47 *** 0 die;
48 }
49
50 sub yy {
51 *** 0 0 $y++;
52 }
53
54 sub zz {
55 11 11 my $x = shift;
56 11 $x++;
57 }
58
59 1
60
61 __END__
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
27 *** 50 11 0 if (time) { }
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- --------------------------
BEGIN 1 tests/module_statements:12
BEGIN 1 tests/module_statements:13
BEGIN 1 tests/module_statements:15
BEGIN 1 tests/module_statements:17
xx 11 tests/module_statements:22
zz 11 tests/module_statements:55
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- --------------------------
_aa 0 tests/module_statements:40
xx 0 tests/module_statements:46
yy 0 tests/module_statements:51