File Coverage

lib/Perlmazing/Perlmazing/Precompile/list_context.pm
Criterion Covered Total %
statement 5 5 100.0
branch 2 2 100.0
condition n/a
subroutine 2 2 100.0
pod n/a
total 9 9 100.0


line stmt bran cond sub pod time code
1 50     50   439 use Perlmazing;
  50         116  
  50         297  
2            
3             sub main () {
4 5     5   1985 my @call = caller(1);
5 5 100       33 $call[5] ? 1 : 0;
6             }
7