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/padrange2                             100.0   50.0    n/a  100.0   90.9
Total                                       100.0   50.0    n/a  100.0   90.9
------------------------------------------ ------ ------ ------ ------ ------


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

tests/padrange2

line  err   stmt   bran   cond    sub   code
1                                       #!/usr/bin/perl
2                                       
3              1                    1   use strict;
               1                        
               1                        
4              1                    1   use warnings;
               1                        
               1                        
5                                       
6     ***      1     50                 if (my @x = 'foo' =~ m/(.)/) {
7                                       } else {
8                                       }


Branches
--------

line  err      %   true  false   branch
----- --- ------ ------ ------   ------
6     ***     50      1      0   if (my(@x) = 'foo' =~ /(.)/) { }


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

Subroutine Count Location         
---------- ----- -----------------
BEGIN          1 tests/padrange2:3
BEGIN          1 tests/padrange2:4