File Coverage

blib/lib/Tie/Simple/Scalar.pm
Criterion Covered Total %
statement 17 18 94.4
branch n/a
condition n/a
subroutine 8 9 88.8
pod n/a
total 25 27 92.5


line stmt bran cond sub pod time code
1             package Tie::Simple::Scalar;
2             $Tie::Simple::Scalar::VERSION = '1.04';
3 4     4   24 use strict;
  4         8  
  4         99  
4 4     4   18 use warnings;
  4         7  
  4         107  
5              
6 4     4   18 use base qw(Tie::Scalar Tie::Simple);
  4         6  
  4         3339  
7 4     4   5178 use Tie::Simple::Util;
  4         11  
  4         496  
8              
9             # Copyright 2004, 2015 Andrew Sterling Hanenkamp. This software
10             # is made available under the same terms as Perl itself.
11              
12             sub _doit {
13 3     3   5 my $self = shift;
14 3         11 Tie::Simple::Util::_doit($self, 'Tie::Scalar', @_);
15             }
16              
17 1     1   42 sub FETCH { shift->_doit('FETCH') }
18 1     1   468 sub STORE { shift->_doit('STORE', @_) }
19 0     0   0 sub UNTIE { shift->_doit('UNTIE') }
20 1     1   343 sub DESTROY { shift->_doit('DESTROY') }
21              
22             1
23              
24             __END__