File Coverage

blib/lib/Rose/DB/Object/Metadata/Object.pm
Criterion Covered Total %
statement 15 19 78.9
branch 2 2 100.0
condition n/a
subroutine 5 6 83.3
pod 0 2 0.0
total 22 29 75.8


line stmt bran cond sub pod time code
1             package Rose::DB::Object::Metadata::Object;
2              
3 61     61   435 use strict;
  61         146  
  61         1850  
4              
5 61     61   1334 use Clone();
  61         5593  
  61         829  
6 61     61   311 use Scalar::Util();
  61         135  
  61         896  
7              
8 61     61   299 use Rose::Object;
  61         150  
  61         11443  
9             our @ISA = qw(Rose::Object);
10              
11             our $VERSION = '0.722';
12              
13             sub parent
14             {
15 2837     2837 0 7341 my($self) = shift;
16 2837 100       8478 return Scalar::Util::weaken($self->{'parent'} = shift) if(@_);
17 2318         7795 return $self->{'parent'};
18             }
19              
20             sub clone
21             {
22 0     0 0   my($self) = shift;
23              
24 0           my $clone = Clone::clone($self);
25 0           Scalar::Util::weaken($clone->{'parent'});
26              
27 0           return $clone;
28             }
29              
30             1;