File Coverage

blib/lib/Context/Handle/RV/List.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 15 17 88.2


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package Context::Handle::RV::List;
4              
5 2     2   10 use strict;
  2         3  
  2         55  
6 2     2   14 use warnings;
  2         4  
  2         147  
7              
8             sub new {
9 2     2 0 3 my $pkg = shift;
10 2         3 my $code = shift;
11 2         8 bless [ $code->() ], $pkg;
12             }
13              
14             sub value {
15 2     2 0 3 my $self = shift;
16 2         14 @$self;
17             }
18              
19             __PACKAGE__;
20              
21             __END__