File Coverage

blib/lib/Tie/IxHash/Easy.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 18 66.6


line stmt bran cond sub pod time code
1             package Tie::IxHash::Easy;
2              
3 1     1   45924 use base 'Tie::IxHash';
  1         2  
  1         690  
4 1     1   8 use strict;
  1         3  
  1         44  
5 1     1   6 use warnings;
  1         15  
  1         131  
6              
7             our $VERSION = '0.01';
8              
9             sub STORE {
10 0     0     my ($self, $key, $value) = @_;
11 0 0         tie %$value, 'Tie::IxHash::Easy' if ref($value) eq "HASH";
12 0           $self->SUPER::STORE($key, $value);
13             }
14              
15             1;
16              
17             __END__