File Coverage

blib/lib/Variable/OnDestruct/Scoped.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Variable::OnDestruct::Scoped;
2             $Variable::OnDestruct::Scoped::VERSION = '0.001';
3 1     1   50198 use 5.010;
  1         4  
4 1     1   5 use strict;
  1         3  
  1         27  
5 1     1   4 use warnings;
  1         8  
  1         52  
6              
7 1     1   4 use Exporter 5.57 'import';
  1         19  
  1         43  
8 1     1   5 use XSLoader;
  1         1  
  1         64  
9              
10             ##no critic (ProhibitAutomaticExportation)
11             our @EXPORT = qw/on_destruct/;
12              
13             XSLoader::load('Variable::OnDestruct::Scoped', __PACKAGE__->VERSION);
14              
15             1; # End of Variable::OnDestruct::Scoped
16              
17             # ABSTRACT: Call a subroutine on destruction of a variable.
18              
19             __END__