File Coverage

blib/lib/Object/Remote/Tied.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Object::Remote::Tied;
2              
3 11     11   44 use strictures 1;
  11         66  
  11         441  
4              
5             #a proxied tied object just ties to the
6             #proxy object that exists on the remote
7             #side of the actual tied variable - when
8             #creating the remote tied variable the proxy
9             #is passed to the constructor
10              
11             sub TIEHASH {
12 1     1   3 return $_[1];
13             }
14              
15             sub TIEARRAY {
16 1     1   5 return $_[1];
17             }
18              
19             1;
20