Reading database from /home/pjcj/g/perl/svk/dc/cover_db ------------------------------------------ ------ ------ ------ ------ ------ File stmt bran cond sub total ------------------------------------------ ------ ------ ------ ------ ------ tests/inc_sub 100.0 50.0 n/a 100.0 93.8 Total 100.0 50.0 n/a 100.0 93.8 ------------------------------------------ ------ ------ ------ ------ ------ Run: ... Perl version: ... OS: ... Start: ... Finish: ... tests/inc_sub line err stmt bran cond sub code 1 #!/bin/perl 2 3 1 1 use lib (); 1 1 4 5 BEGIN 6 { 7 lib->import 8 ( 9 sub 10 { 11 1 my $fh; 12 *** 1 50 open $fh, "tests/IncSub.pm" or die $!; 13 1 $fh 14 } 15 ) 16 1 1 } 17 18 1 1 use IncSub; 1 1 19 20 1 IncSub::check Branches -------- line err % true false branch ----- --- ------ ------ ------ ------ 12 *** 50 0 1 unless open $fh, 'tests/IncSub.pm' Covered Subroutines ------------------- Subroutine Count Location ---------- ----- ---------------- BEGIN 1 tests/inc_sub:16 BEGIN 1 tests/inc_sub:18 BEGIN 1 tests/inc_sub:3