File Coverage

blib/lib/Array/Objectify.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 Array::Objectify;
2              
3 3     3   175702 use 5.006;
  3         23  
4 3     3   14 use strict;
  3         5  
  3         64  
5 3     3   31 use warnings;
  3         5  
  3         124  
6             our $VERSION = '0.02';
7 3     3   1065 use Array::Objectify::Tie;
  3         9  
  3         162  
8              
9 3     3   3540 use overload '@{}' => sub { ${$_[0]}->{array}; }, fallback => 1;
  3     19   2570  
  3         55  
  19         3108  
  19         99  
10            
11             sub new {
12 2     2 1 157 my ($class, @params) = @_;
13            
14 2         6 my $self = \{
15             array => [],
16             };
17            
18 2         5 tie @{${$self}->{array}}, 'Array::Objectify::Tie', @params;
  2         3  
  2         16  
19            
20 2         12 bless $self, $class;
21             }
22              
23             1;
24              
25             __END__