File Coverage

blib/lib/Hash/RestrictedKeys.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Hash::RestrictedKeys;
2              
3 3     3   169406 use 5.006;
  3         24  
4 3     3   15 use strict;
  3         6  
  3         71  
5 3     3   31 use warnings;
  3         5  
  3         123  
6 3     3   1040 use Hash::RestrictedKeys::Tie;
  3         7  
  3         162  
7              
8             our $VERSION = '0.03';
9              
10 3     3   3438 use overload '%{}' => sub { ${$_[0]}->{hash}; }, fallback => 1;
  3     15   2538  
  3         27  
  15         1649  
  15         80  
11              
12             sub new {
13 2     2 1 151 my ($class, @keys) = @_;
14              
15 2         7 my $self = \{
16             hash => {},
17             };
18              
19 2         4 tie %{${$self}->{hash}}, 'Hash::RestrictedKeys::Tie', @keys;
  2         4  
  2         17  
20              
21 2         7 bless $self, $class;
22             }
23              
24             1;
25              
26             __END__