Reading database from /home/pjcj/g/perl/svk/dc/cover_db ------------------------------------------ ------ ------ ------ ------ ------ File stmt bran cond sub total ------------------------------------------ ------ ------ ------ ------ ------ tests/deparse 91.7 n/a n/a 75.0 87.5 Total 91.7 n/a n/a 75.0 87.5 ------------------------------------------ ------ ------ ------ ------ ------ Run: ... Perl version: ... OS: ... Start: ... Finish: ... tests/deparse line err stmt bran cond sub code 1 #!/usr/bin/perl -l 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 1 1 use strict; 1 1 11 1 1 use warnings; 1 1 12 13 1 1 use B::Deparse; 1 1 14 15 my $xx = sub 16 { 17 *** 0 0 print "xx"; 18 1 }; 19 20 1 print B::Deparse->new->coderef2text($xx) Covered Subroutines ------------------- Subroutine Count Location ---------- ----- ---------------- BEGIN 1 tests/deparse:10 BEGIN 1 tests/deparse:11 BEGIN 1 tests/deparse:13 Uncovered Subroutines --------------------- Subroutine Count Location ---------- ----- ---------------- __ANON__ 0 tests/deparse:17