File Coverage

lib/Perlmazing/Perlmazing/no_void.pm
Criterion Covered Total %
statement 6 6 100.0
branch 2 2 100.0
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 10 11 90.9


line stmt bran cond sub pod time code
1 1     1   9 use Perlmazing;
  1         2  
  1         11  
2              
3             sub main {
4 3     3 0 2666 my @call = caller(1);
5 3 100       16 if (not defined $call[5]) {
6 1         12 die "Useless call to $call[3] in void context at $call[1] line $call[2]\n";
7             }
8             }
9              
10             1;