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              
3 4     4   24 use strict;
  4         9  
  4         122  
4 4     4   19 use warnings;
  4         13  
  4         142  
5              
6             our $VESRION = '1.01';
7              
8 4     4   19 use base qw(Tie::Scalar Tie::Simple);
  4         9  
  4         10197  
9 4     4   4990 use Tie::Simple::Util;
  4         8  
  4         479  
10              
11             # Copyright 2004 Andrew Sterling Hanenkamp. All Rights Reserved. This software
12             # is made available under the same terms as Perl itself.
13              
14             sub _doit {
15 3     3   6 my $self = shift;
16 3         12 Tie::Simple::Util::_doit($self, 'Tie::Scalar', @_);
17             }
18              
19 1     1   43 sub FETCH { shift->_doit('FETCH') }
20 1     1   814 sub STORE { shift->_doit('STORE', @_) }
21 0     0   0 sub UNTIE { shift->_doit('UNTIE') }
22 1     1   507 sub DESTROY { shift->_doit('DESTROY') }
23              
24             1