File Coverage

blib/lib/Tie/Simple/Util.pm
Criterion Covered Total %
statement 17 17 100.0
branch 4 4 100.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Tie::Simple::Util;
2              
3 4     4   19 use strict;
  4         6  
  4         115  
4 4     4   19 use warnings;
  4         5  
  4         315  
5              
6             our $VERSION = '1.01';
7              
8             # Copyright 2004 Andrew Sterling Hanenkamp. All Rights Reserved. This software
9             # is made available under the same terms as Perl itself.
10              
11             sub _doit {
12 52     52   66 my $self = shift;
13 52         64 my $parent = shift;
14 52         66 my $method = shift;
15              
16 52 100       607 if (defined $$self{subs}{$method}) {
    100          
17 49         167 $$self{subs}{$method}->($$self{data}, @_);
18             } elsif ($parent->can($method)) {
19 4     4   18 no strict 'refs';
  4         8  
  4         314  
20 1         4 my $sub = "$parent\::$method";
21 1         3 &{$sub}($self, @_);
  1         7  
22             }
23             }
24              
25             1