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   466398 use strict;
  1         3  
  1         49  
4              
5 1     1   596 use Test::LeakTrace ();
  1         2  
  1         75  
6              
7             my $Mode = $ENV{TEST_LEAKTRACE};
8              
9             sub import{
10 1     1   18 shift;
11              
12 1 50       3719 $Mode = shift if @_;
13             }
14              
15 1     1   7 no warnings 'void';
  1         2  
  1         306  
16              
17             INIT{
18 1     1   7897 Test::LeakTrace::_start(1);
19             }
20              
21             END{
22 1 50   1   61965 $Mode = -simple unless defined $Mode;
23 1         4221 Test::LeakTrace::_finish($Mode);
24 1         16 return;
25             }
26              
27             1;
28             __END__