File Coverage

blib/lib/Data/Localize/Storage/Hash.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 2 2 100.0
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Data::Localize::Storage::Hash;
2 2     2   486 use Moo;
  2         5  
  2         12  
3              
4             with 'Data::Localize::Storage';
5              
6             sub get {
7 27     27 1 34 my $self = shift;
8 27         71 $self->{$_[0]}
9             }
10              
11             sub set {
12 18     18 1 23 my $self = shift;
13 18         119 $self->{$_[0]} = $_[1];
14             }
15              
16             1;
17              
18             __END__