1Reading database from ... 2 3 4------------- ------ ------ ------ ------ ------ 5File stmt bran cond sub total 6------------- ------ ------ ------ ------ ------ 7tests/deparse 91.6 n/a n/a 75.0 87.5 8Total 91.6 n/a n/a 75.0 87.5 9------------- ------ ------ ------ ------ ------ 10 11 12Run: ... 13Perl version: ... 14OS: ... 15Start: ... 16Finish: ... 17 18tests/deparse 19 20line err stmt bran cond sub code 211 #!/usr/bin/perl -l 222 233 # Copyright 2004-2019, Paul Johnson (paul@pjcj.net) 244 255 # This software is free. It is licensed under the same terms as Perl itself. 266 277 # The latest version of this software should be available from my homepage: 288 # http://www.pjcj.net 299 3010 1 1 use strict; 31 1 32 1 3311 1 1 use warnings; 34 1 35 1 3612 3713 1 1 use B::Deparse; 38 1 39 1 4014 4115 my $xx = sub { 4216 *** 0 0 print "xx"; 4317 1 }; 4418 4519 1 print B::Deparse->new->coderef2text($xx) 46 47 48Covered Subroutines 49------------------- 50 51Subroutine Count Location 52---------- ----- ---------------- 53BEGIN 1 tests/deparse:10 54BEGIN 1 tests/deparse:11 55BEGIN 1 tests/deparse:13 56 57Uncovered Subroutines 58--------------------- 59 60Subroutine Count Location 61---------- ----- ---------------- 62__ANON__ 0 tests/deparse:16 63 64 65