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   263312 use 5.006;
  3         10  
4 3     3   15 use strict;
  3         11  
  3         98  
5 3     3   10 use warnings;
  3         10  
  3         176  
6             our $VERSION = '0.04';
7 3     3   1104 use Array::Objectify::Tie;
  3         8  
  3         168  
8              
9 3     3   1546 use overload '@{}' => sub { ${$_[0]}->{array}; }, fallback => 1;
  3     19   4102  
  3         24  
  19         4504  
  19         184  
10            
11             sub new {
12 2     2 1 246861 my ($class, @params) = @_;
13            
14 2         6 my $self = \{
15             array => [],
16             };
17            
18 2         4 tie @{${$self}->{array}}, 'Array::Objectify::Tie', @params;
  2         3  
  2         16  
19            
20 2         17 bless $self, $class;
21             }
22              
23             1;
24              
25             __END__