File Coverage

blib/lib/Context/Handle/RV/RefScalar.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package Context::Handle::RV::RefScalar;
4 2     2   9 use base qw/Context::Handle::RV::Scalar/;
  2         2  
  2         130  
5              
6 2     2   8 use strict;
  2         3  
  2         46  
7 2     2   88 use warnings;
  2         4  
  2         139  
8              
9             sub new {
10 1     1 0 2 my $class = shift;
11 1         2 my $code = shift;
12              
13 1     1   11 $class->SUPER::new( sub { \${ $code->() } } );
  1         2  
  1         2  
14             }
15              
16             __PACKAGE__;
17              
18             __END__