File Coverage

blib/lib/Tie/Simple/Hash.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 11 13 84.6
pod n/a
total 29 33 87.8


line stmt bran cond sub pod time code
1             package Tie::Simple::Hash;
2              
3 4     4   20 use strict;
  4         6  
  4         117  
4 4     4   18 use warnings;
  4         7  
  4         149  
5              
6             our $VERSION = '1.03';
7              
8 4     4   18 use base qw(Tie::Hash Tie::Simple);
  4         5  
  4         4157  
9              
10             # Copyright 2004 Andrew Sterling Hanenkamp. All Rights Reserved. This software
11             # is made available under the same terms as Perl itself.
12              
13             sub _doit {
14 16     16   27 my $self = shift;
15 16         46 Tie::Simple::Util::_doit($self, 'Tie::Hash', @_);
16             }
17              
18 4     4   66 sub FETCH { shift->_doit('FETCH', @_) }
19 4     4   859 sub STORE { shift->_doit('STORE', @_) }
20 1     1   527 sub DELETE { shift->_doit('DELETE', @_) }
21 2     2   861 sub CLEAR { shift->_doit('CLEAR') }
22 0     0   0 sub EXISTS { shift->_doit('EXISTS', @_) }
23 1     1   16 sub FIRSTKEY { shift->_doit('FIRSTKEY') }
24 3     3   1602 sub NEXTKEY { shift->_doit('NEXTKEY', @_) }
25 0     0   0 sub UNTIE { shift->_doit('UNTIE') }
26 1     1   16 sub DESTROY { shift->_doit('DESTROY') }
27              
28             1