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   470 use strict;
  61         138  
  61         1890  
4              
5 61     61   1267 use Clone();
  61         5520  
  61         941  
6 61     61   309 use Scalar::Util();
  61         145  
  61         1037  
7              
8 61     61   288 use Rose::Object;
  61         187  
  61         11742  
9             our @ISA = qw(Rose::Object);
10              
11             our $VERSION = '0.722';
12              
13             sub parent
14             {
15 2849     2849 0 6754 my($self) = shift;
16 2849 100       7978 return Scalar::Util::weaken($self->{'parent'} = shift) if(@_);
17 2330         7214 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;