File Coverage

blib/lib/Perl/Destruct/Level.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Perl::Destruct::Level;
2              
3 3     3   39919 use strict;
  3         7  
  3         96  
4 3     3   12 use warnings;
  3         6  
  3         71  
5 3     3   23 use XSLoader ();
  3         4  
  3         275  
6              
7             our $VERSION = '0.02';
8              
9             XSLoader::load 'Perl::Destruct::Level', $VERSION;
10              
11             sub import {
12 3     3   18 shift;
13 3         9 my %p = @_;
14 3 100       3258 set_destruct_level($p{level}) if exists $p{level};
15             }
16              
17             1;
18              
19             __END__