File Coverage

blib/lib/Context/Handle/RV/Void.pm
Criterion Covered Total %
statement 6 11 54.5
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 2 0.0
total 8 17 47.0


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