File Coverage

blib/lib/Tie/StorableDir/BackedHash.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition 1 3 33.3
subroutine 6 6 100.0
pod n/a
total 26 28 92.8


line stmt bran cond sub pod time code
1             package Tie::StorableDir::BackedHash;
2              
3 4     4   224 use 5.008;
  4         14  
  4         272  
4 4     4   19 use strict;
  4         7  
  4         114  
5 4     4   21 use warnings;
  4         6  
  4         536  
6              
7 4     4   132 use base 'Tie::ExtraHash';
  4         7  
  4         4921  
8              
9             sub TIEHASH {
10 8     8   13 my ($class, $parent, $backing) = @_;
11 8   33     32 $class = ref $class || $class;
12 8         19 my $self = [$backing, $parent];
13 8         18 bless $self, $class;
14 8         27 return $self;
15             }
16              
17             sub FETCH {
18 5     5   19 my ($self, $key) = @_;
19 5         19 return $self->[1]->translate($self->[0]{$key});
20             }
21              
22             1;