File Coverage

blib/lib/Algorithm/LSH/Storage/Storable.pm
Criterion Covered Total %
statement 12 18 66.6
branch n/a
condition n/a
subroutine 4 6 66.6
pod 2 2 100.0
total 18 26 69.2


line stmt bran cond sub pod time code
1             package Algorithm::LSH::Storage::Storable;
2 2     2   11 use strict;
  2         3  
  2         69  
3 2     2   11 use warnings;
  2         5  
  2         55  
4 2     2   12 use Storable qw(store retrieve);
  2         4  
  2         128  
5 2     2   10 use base qw(Algorithm::LSH::Storage);
  2         10  
  2         1255  
6              
7             sub save {
8 0     0 1   my $self = shift;
9 0           my $file_path = shift;
10 0           store($self->context, $file_path);
11             }
12              
13             sub load {
14 0     0 1   my $self = shift;
15 0           my $file_path = shift;
16 0           retrieve($file_path);
17             }
18              
19             1;
20             __END__