File Coverage

blib/lib/Tak/ObjectProxy.pm
Criterion Covered Total %
statement 3 8 37.5
branch n/a
condition n/a
subroutine 1 3 33.3
pod n/a
total 4 11 36.3


line stmt bran cond sub pod time code
1             package Tak::ObjectProxy;
2              
3 1     1   8 use strictures 1;
  1         9  
  1         38  
4              
5             sub AUTOLOAD {
6 0     0     my $self = shift;
7 0           (my $method) = (our $AUTOLOAD =~ /([^:]+)$/);
8 0           $self->{client}->proxy_method_call($self, $method => @_);
9             }
10              
11             sub DESTROY {
12 0     0     my $self = shift;
13 0           $self->{client}->proxy_death($self);
14             }
15              
16             1;