File Coverage

lib/Hash/Persistent/Memory.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 3 0.0
total 15 18 83.3


line stmt bran cond sub pod time code
1             package Hash::Persistent::Memory;
2              
3             # ABSTRACT: in-memory persistent object which doesn't really store anything
4              
5 1     1   21723 use strict;
  1         3  
  1         42  
6 1     1   5 use warnings;
  1         3  
  1         117  
7              
8             sub new {
9 2     2 0 23 return bless {} => shift;
10             }
11              
12 1     1 0 948 sub commit {}
13              
14             # we probably should cleanup $self contents, but Hash::Persistent currently doesn't do it.
15             sub remove {
16 1     1 0 396 my $self = shift;
17 1         6 delete $self->{$_} for keys %$self;
18             }
19              
20             1;
21              
22             __END__