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 1     1   4 use Moo;
  1         2  
  1         5  
3              
4             with 'Data::Localize::Storage';
5              
6             sub get {
7 7     7 1 12 my $self = shift;
8 7         33 $self->{$_[0]}
9             }
10              
11             sub set {
12 13     13 1 16 my $self = shift;
13 13         169 $self->{$_[0]} = $_[1];
14             }
15              
16             1;
17              
18             __END__