File Coverage

blib/lib/Test/Tester/Delegate.pm
Criterion Covered Total %
statement 20 20 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 26 28 92.8


line stmt bran cond sub pod time code
1 5     5   25 use strict;
  5         7  
  5         158  
2 5     5   25 use warnings;
  5         6  
  5         187  
3              
4             package Test::Tester::Delegate;
5              
6 5     5   21 use vars '$AUTOLOAD';
  5         5  
  5         941  
7              
8             sub new
9             {
10 5     5 0 10 my $pkg = shift;
11              
12 5         8 my $obj = shift;
13 5         14 my $self = bless {}, $pkg;
14              
15 5         14 return $self;
16             }
17              
18             sub AUTOLOAD
19             {
20 72     72   16931 my ($sub) = $AUTOLOAD =~ /.*::(.*?)$/;
21              
22 72 50       165 return if $sub eq "DESTROY";
23              
24 72         126 my $obj = $_[0]->{Object};
25              
26 72         196 my $ref = $obj->can($sub);
27 72         83 shift(@_);
28 72         98 unshift(@_, $obj);
29 72         219 goto &$ref;
30             }
31              
32             1;