File Coverage

blib/lib/Variable/OnDestruct.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


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