File Coverage

blib/lib/Data/ManBearPig.pm
Criterion Covered Total %
statement 20 21 95.2
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 26 29 89.6


line stmt bran cond sub pod time code
1             package Data::ManBearPig;
2 1     1   403 use strict;
  1         2  
  1         31  
3 1     1   5 use warnings FATAL => 'all';
  1         2  
  1         84  
4              
5             our $VERSION = "v0.0.3";
6              
7 1     1   6 use overload '%{}' => sub { ${$_[0]}->{dummy} }, fallback => 1;
  1     57   2  
  1         9  
  57         16759  
  57         449  
8 1     1   96 use overload 'bool' => sub { 1 }, fallback => 1;
  1     0   2  
  1         5  
  0         0  
9              
10             sub new {
11 9     9 0 21 my ($class) = @_;
12              
13 9         35 my $self = \{
14             tied_keys => {},
15             values => {},
16             dummy => {},
17             };
18              
19 9         553 require Data::WeakMap::Tie;
20 9         33 tie %{ $$self->{dummy} }, 'Data::WeakMap::Tie', $self;
  9         48  
21              
22 9         26 bless $self, $class;
23             }
24              
25             1;