Reading database from /home/pjcj/g/perl/svk/dc/cover_db Reading uncoverable information from 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-2007, Paul Johnson (pjcj@cpan.org) 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 tests/.uncoverable 11 12 1 my $x = 1; 13 1 my $y = 1; 14 1 - 50 - 33 if ($x && !$y) 15 { 16 -0 $x++; 17 -0 z(); 18 } 19 sub z 20 { 21 -0 -0 $y++; 22 } Branches -------- line err % true false branch ----- --- ------ ------ ------ ------ 14 - 50 -0 1 if ($x and not $y) Conditions ---------- and 3 conditions line err % !l l&&!r l&&r expr ----- --- ------ ------ ------ ------ ---- 14 - 33 -0 1 -0 $x and not $y Uncovered Subroutines --------------------- Subroutine Count Location ---------- ----- -------------------- z -0 tests/uncoverable:21