Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
tests/Module2.pm 25.0 n/a n/a 25.0 25.0
tests/module2 87.5 50.0 n/a 100.0 81.8
Total 56.2 50.0 n/a 40.0 52.1
------------------------------------------ ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/Module2.pm
line err stmt bran cond sub code
1 # Copyright 2002-2015, 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 NotModule2;
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/Module2.pm:29
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- -------------------
_aa 0 tests/Module2.pm:14
_xx 0 tests/Module2.pm:20
yy 0 tests/Module2.pm:25
tests/module2
line err stmt bran cond sub code
1 #!/usr/bin/perl
2
3 # Copyright 2002-2015, 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 use strict;
13 use warnings;
14
15 use lib "tests";
16
17 use Module2;
18
19 1 my @x;
20
21 sub xx {
22 11 11 $x[shift]++;
23 11 NotModule2::zz(0);
24 }
25
26 1 for (0 .. 10) {
11
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
---------- ----- ----------------
xx 11 tests/module2:22