Reading database from ...
2 unmatched uncoverable comments not found at end of tests/uncoverable
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
tests/uncoverable 100.0 100.0 100.0 100.0 100.0
Total 100.0 100.0 100.0 100.0 100.0
------------------------------------------ ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/uncoverable
line err stmt bran cond sub code
1 #!/usr/bin/perl
2
3 # Copyright 2004-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__ uncoverable_file tests/.uncoverable
11
12 1 my $x = 1;
13 1 my $y = 1;
14
15 # uncoverable branch true
16 # uncoverable condition left
17 # uncoverable condition false
18 1 - 50 - 33 if ($x && !$y) {
19 -0 $x++; # uncoverable statement
20 # uncoverable statement
21 -0 z();
22 }
23
24 # uncoverable branch true
25 # uncoverable condition right
26 # uncoverable condition false
27 1 - 50 - 33 if (!$x && $y) {
28 # uncoverable statement count:1
29 # uncoverable statement count:2
30 -0 b(); b();
-0
31 }
32
33 sub z {
34 # uncoverable subroutine
35 -0 -0 $y++; # uncoverable statement
36 }
37
38 # uncoverable statement
39 # uncoverable subroutine
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
18 - 50 -0 1 if ($x and not $y)
27 - 50 -0 1 if (not $x and $y)
Conditions
----------
and 3 conditions
line err % !l l&&!r l&&r expr
----- --- ------ ------ ------ ------ ----
18 - 33 -0 1 -0 $x and not $y
27 - 33 1 -0 -0 not $x and $y
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- --------------------
z -0 tests/uncoverable:35