File Coverage

blib/lib/Data/ZPath/_ScalarProxy.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 14 14 100.0


line stmt bran cond sub pod time code
1 9     9   258941 use strict;
  9         32  
  9         659  
2 9     9   56 use warnings;
  9         21  
  9         1950  
3              
4             package Data::ZPath::_ScalarProxy;
5              
6             our $VERSION = '0.001000';
7              
8 5     5   438422 sub TIESCALAR { bless { slot => $_[1] }, $_[0] }
9 3     3   38 sub FETCH { $_[0]->{slot}->() }
10 3     3   23 sub STORE { $_[0]->{slot}->($_[1]) }
11              
12             1;