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.06';
3 1     1   60478 use strict;
  1         3  
  1         30  
4 1     1   5 use warnings FATAL => 'all';
  1         2  
  1         43  
5 1     1   5 use Exporter 5.57 'import';
  1         15  
  1         37  
6 1     1   5 use XSLoader;
  1         1  
  1         61  
7              
8             ##no critic (ProhibitAutomaticExportation)
9             our @EXPORT = qw/on_destruct/;
10             our @EXPORT_OK = qw/on_destruct_fifo/;
11              
12             XSLoader::load('Variable::OnDestruct', __PACKAGE__->VERSION);
13              
14             1; # End of Variable::OnDestruct
15              
16             #ABSTRACT: Call a subroutine on destruction of a variable.
17              
18             __END__