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   404 use strict;
  61         176  
  61         2505  
4              
5 61     61   363 use Clone();
  61         169  
  61         1291  
6 61     61   305 use Scalar::Util();
  61         202  
  61         1388  
7              
8 61     61   338 use Rose::Object;
  61         133  
  61         14624  
9             our @ISA = qw(Rose::Object);
10              
11             our $VERSION = '0.722';
12              
13             sub parent
14             {
15 2849     2849 0 8150 my($self) = shift;
16 2849 100       9329 return Scalar::Util::weaken($self->{'parent'} = shift) if(@_);
17 2330         10111 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;