File Coverage

blib/lib/Tie/Array/Lazier.pm
Criterion Covered Total %
statement 12 15 80.0
branch 1 2 50.0
condition n/a
subroutine 4 6 66.6
pod n/a
total 17 23 73.9


line stmt bran cond sub pod time code
1             package Tie::Array::Lazier;
2 2     2   10707 use warnings;
  2         5  
  2         58  
3 2     2   10 use strict;
  2         5  
  2         138  
4             our $VERSION = sprintf "%d.%02d", q$Revision: 0.2 $ =~ /(\d+)/g;
5 2     2   10 use base 'Tie::Array::Lazy';
  2         5  
  2         746  
6              
7 0     0   0 sub EXTEND($$) { } # does nothing
8              
9             sub FETCH($$) {
10 1     1   823 my ( $self, $index ) = @_;
11 1 50       8 $self->array->[$index] = $self->maker->($self, $index)
12             unless exists $self->array->[$index];
13 1         4 $self->array->[$index];
14             }
15              
16             sub STORE($$$) {
17 0     0     my ( $self, $index, $value ) = @_;
18 0           $self->array->[$index] = $value;
19             }
20              
21             1;
22             __END__