Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
tests/Module1.pm 25.0 n/a n/a 25.0 25.0
tests/module1 94.7 50.0 n/a 100.0 92.3
Total 74.0 50.0 n/a 66.6 71.0
------------------------------------------ ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/Module1.pm
line err stmt bran cond sub code
1 # Copyright 2002-2017, Paul Johnson (paul@pjcj.net)
2
3 # This software is free. It is licensed under the same terms as Perl itself.
4
5 # The latest version of this software should be available from my homepage:
6 # http://www.pjcj.net
7
8 package Module1;
9
10 my $y = 7;
11 $y++;
12
13 sub _aa {
14 *** 0 0 $y++;
15 *** 0 die;
16 *** 0 die;
17 }
18
19 sub xx {
20 *** 0 0 $y++;
21 *** 0 die;
22 }
23
24 sub yy {
25 *** 0 0 $y++;
26 }
27
28 sub zz {
29 11 11 my $x = shift;
30 11 $x++;
31 }
32
33 1
34
35 __END__
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- -------------------
zz 11 tests/Module1.pm:29
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- -------------------
_aa 0 tests/Module1.pm:14
xx 0 tests/Module1.pm:20
yy 0 tests/Module1.pm:25
tests/module1
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 }
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
27 *** 50 11 0 if (time) { }
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ----------------
BEGIN 1 tests/module1:12
BEGIN 1 tests/module1:13
BEGIN 1 tests/module1:15
BEGIN 1 tests/module1:17
xx 11 tests/module1:22