Lines Matching refs:live
34 my $live = shift->live_object_index;
35 delete @$live{ grep !defined $live->{$_}, keys %$live };
44 my $live = shift->live_object_index;
45 delete @$live{ keys %$live };
64 my $live = $self->live_object_index;
65 weaken($live->{$key} = $self);
82 my $live = $class->live_object_index;
83 return $live->{$key} if $live->{$key};
84 weaken($live->{$key} = $new);