The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Reading database from ...


------------------------------------------ ------ ------ ------ ------ ------
File                                         stmt   bran   cond    sub  total
------------------------------------------ ------ ------ ------ ------ ------
tests/inc_sub                               100.0   75.0    n/a  100.0   95.0
Total                                       100.0   75.0    n/a  100.0   95.0
------------------------------------------ ------ ------ ------ ------ ------


Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...

tests/inc_sub

line  err   stmt   bran   cond    sub   code
1                                       #!/bin/perl
2                                       
3                                       # Copyright 2002-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__ changes s/(2[12]             )\d/$1X/
11                                      # __COVER__ changes s/(22           100      )\d/$1X/
12                                      
13             1                    1   use lib ();
               1                        
               1                        
14                                      
15                                      BEGIN
16                                      {
17                                          lib->import
18                                          (
19                                              sub
20                                              {
21             2                                    print map("[$_]", @_), "\n";
22             2    100                             return unless $_[1] eq "IncSub.pm";
23             1                                    my $fh;
24    ***      1     50                             open $fh, "tests/IncSub.pm" or die $!;
25             1                                    $fh
26                                              }
27                                          )
28             1                    1   }
29                                      
30             1                    1   use IncSub;
               1                        
               1                        
31                                      
32             1                        IncSub::check


Branches
--------

line  err      %   true  false   branch
----- --- ------ ------ ------   ------
22           100      1      1   unless $_[1] eq 'IncSub.pm'
24    ***     50      0      1   unless open $fh, 'tests/IncSub.pm'


Covered Subroutines
-------------------

Subroutine Count Location        
---------- ----- ----------------
BEGIN          1 tests/inc_sub:13
BEGIN          1 tests/inc_sub:28
BEGIN          1 tests/inc_sub:30