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   439481 use 5.006;
  3         14  
4 3     3   19 use strict;
  3         8  
  3         149  
5 3     3   22 use warnings;
  3         6  
  3         195  
6 3     3   1771 use Hash::RestrictedKeys::Tie;
  3         12  
  3         298  
7              
8             our $VERSION = '1.01';
9              
10 3     3   5837 use overload '%{}' => sub { ${$_[0]}->{hash}; }, fallback => 1;
  3     15   6574  
  3         61  
  15         2854  
  15         117  
11              
12             sub new {
13 2     2 1 426060 my ($class, @keys) = @_;
14              
15 2         10 my $self = \{
16             hash => {},
17             };
18              
19 2         4 tie %{${$self}->{hash}}, 'Hash::RestrictedKeys::Tie', @keys;
  2         5  
  2         21  
20              
21 2         8 bless $self, $class;
22             }
23              
24             1;
25              
26             __END__