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/eval2                                 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: ...

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

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

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

tests/eval2

line  err   stmt   bran   cond    sub   code
1                                       #!/usr/bin/perl
2                                       
3                                       # Copyright 2004-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             4                    4   use lib "tests";
               4                        
               4                        
11                                      
12             4           100          $x = shift || 0;
13             4                        print "1 - $x\n";
14             4    100             2   if ($x) { eval 'use E2' }
               2                        
               2                        
               2                        
               2                        
15             4                        print "3 - $x\n";
16             4    100             2   if ($x < 4) { eval 'use E3' }
               2                        
               2                        
               2                        
               2                        
17             4                        print "4 - $x\n";
18             4    100             3   if ($x < 6) { eval 'use E4' }
               3                        
               3                        
               3                        
               3                        
19             4                        print "5 - $x\n";


Branches
--------

line  err      %   true  false   branch
----- --- ------ ------ ------   ------
14           100      2      2   if ($x)
16           100      2      2   if ($x < 4)
18           100      3      1   if ($x < 6)


Conditions
----------

or 2 conditions

line  err      %      l     !l   expr
----- --- ------ ------ ------   ----
12           100      2      2   shift @ARGV || 0


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

Subroutine Count Location      
---------- ----- --------------
BEGIN          4 tests/eval2:10
BEGIN          2 tests/eval2:14
BEGIN          2 tests/eval2:16
BEGIN          3 tests/eval2:18