File Coverage

blib/lib/Destructure/Declare.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Destructure::Declare;
2              
3 13     13   1292601 use 5.014;
  13         37  
4 13     13   53 use strict;
  13         32  
  13         343  
5 13     13   53 use warnings;
  13         44  
  13         1795  
6              
7             our $VERSION = '0.02';
8              
9             require XSLoader;
10             XSLoader::load('Destructure::Declare', $VERSION);
11              
12 20     20   154853 sub import { $^H{'Destructure::Declare'} = 1 }
13 1     1   613 sub unimport { delete $^H{'Destructure::Declare'} }
14              
15             1;
16              
17             __END__