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   17701 use strict;
  1         2  
  1         34  
4              
5 1     1   299 use Test::LeakTrace ();
  1         2  
  1         53  
6              
7             my $Mode = $ENV{TEST_LEAKTRACE};
8              
9             sub import{
10 1     1   6 shift;
11              
12 1 50       1218 $Mode = shift if @_;
13             }
14              
15 1     1   5 no warnings 'void';
  1         2  
  1         88  
16              
17             INIT{
18 1     1   4912 Test::LeakTrace::_start(1);
19             }
20              
21             END{
22 1 50   1   33348 $Mode = -simple unless defined $Mode;
23 1         2565 Test::LeakTrace::_finish($Mode);
24 1         12 return;
25             }
26              
27             1;
28             __END__