2 unmatched uncoverable comments not found at end of tests/uncoverable
Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
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-2013, 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 {
20 -0 $x++; # uncoverable statement
21 # uncoverable statement
22 -0 z();
23 }
24
25 # uncoverable branch true
26 # uncoverable condition right
27 # uncoverable condition false
28 1 - 50 - 33 if (!$x && $y)
29 {
30 # uncoverable statement count:1
31 # uncoverable statement count:2
32 -0 b(); b();
-0
33 }
34
35 sub z
36 {
37 # uncoverable subroutine
38 -0 -0 $y++; # uncoverable statement
39 }
40
41 # uncoverable statement
42 # uncoverable subroutine
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
18 - 50 -0 1 if ($x and not $y)
28 - 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
28 - 33 1 -0 -0 not $x and $y
Uncovered Subroutines
---------------------
Subroutine Count Location
---------- ----- --------------------
z -0 tests/uncoverable:38