File Coverage

blib/lib/Test/Evo/Helpers.pm
Criterion Covered Total %
statement 6 21 28.5
branch 0 6 0.0
condition 0 3 0.0
subroutine 2 3 66.6
pod 0 1 0.0
total 8 34 23.5


line stmt bran cond sub pod time code
1             package Test::Evo::Helpers;
2 1     1   434 use Evo '-Export *';
  1         2  
  1         5  
3              
4 0 0   0 0   sub test_memory ($count, $limit, $code) : Export {
  0 0          
  0            
  0            
  0            
  0            
5 0           require Memory::Stats;
6 0           my $stats = Memory::Stats->new;
7             {
8 0           $stats->start;
  0            
9 0           $code->() for 1 .. $count;
10             }
11 0           $stats->stop;
12 0           my $consumed = $stats->usage;
13 0 0 0       die "consumed $consumed bytes, threshold is: $limit" if $limit && $stats->usage > $limit;
14 0           $consumed;
15 1     1   7 }
  1         2  
  1         5  
16              
17             1;
18              
19             __END__