File Coverage

blib/lib/Package/Checkpoint/Guard.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Package::Checkpoint::Guard;
2              
3 1     1   233649 use strict;
  1         7  
  1         31  
4 1     1   5 use warnings;
  1         2  
  1         25  
5 1     1   17 use 5.020;
  1         6  
6 1     1   6 use base qw( Package::Checkpoint );
  1         2  
  1         511  
7 1     1   8 use experimental qw( signatures );
  1         2  
  1         22  
8              
9             # ABSTRACT: Checkpoint the scalar, array and hash values in a package for automatic restoration
10             our $VERSION = '0.01'; # VERSION
11              
12              
13             sub DESTROY ($self)
14 1     1   579 {
  1         2  
  1         2  
15 1         8 $self->restore;
16             }
17              
18             1;
19              
20             __END__