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.002';
3 1     1   88751 use 5.010;
  1         4  
4 1     1   6 use strict;
  1         2  
  1         31  
5 1     1   7 use warnings;
  1         2  
  1         32  
6              
7 1     1   6 use Exporter 5.57 'import';
  1         16  
  1         38  
8 1     1   7 use XSLoader;
  1         9  
  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__