File Coverage

blib/lib/Test/LeakTrace/Script.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 4 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 25 92.0


line stmt bran cond sub pod time code
1             package Test::LeakTrace::Script;
2              
3 1     1   16461 use strict;
  1         2  
  1         23  
4              
5 1     1   277 use Test::LeakTrace ();
  1         3  
  1         52  
6              
7             my $Mode = $ENV{TEST_LEAKTRACE};
8              
9             sub import{
10 1     1   7 shift;
11              
12 1 50       1055 $Mode = shift if @_;
13             }
14              
15 1     1   8 no warnings 'void';
  1         2  
  1         104  
16              
17             INIT{
18 1     1   3656 Test::LeakTrace::_start(1);
19             }
20              
21             END{
22 1 50   1   20227 $Mode = -simple unless defined $Mode;
23 1         1817 Test::LeakTrace::_finish($Mode);
24 1         10 return;
25             }
26              
27             1;
28             __END__