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   486 use strict;
  61         137  
  61         1840  
4              
5 61     61   1214 use Clone();
  61         5568  
  61         801  
6 61     61   346 use Scalar::Util();
  61         144  
  61         923  
7              
8 61     61   366 use Rose::Object;
  61         133  
  61         11450  
9             our @ISA = qw(Rose::Object);
10              
11             our $VERSION = '0.722';
12              
13             sub parent
14             {
15 2849     2849 0 7642 my($self) = shift;
16 2849 100       8592 return Scalar::Util::weaken($self->{'parent'} = shift) if(@_);
17 2330         7834 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;