if (my ($obj) = $self->_key_cache_get_raw($raw)) {
$self->_merge($obj, $raw)
} else {
- $self->_inflate($raw)
+ $self->_add_to_key_cache($self->_inflate($raw))
}
};
push @cache, $obj;
}
- \@cache;
+ \@cache
}
method _add_to_member_cache ($to_add) {
return unless $self->_member_cache_built;
push @{$self->_member_cache}, $to_add;
+ $to_add
}
## key cache - by primary/unique key
method _add_to_key_cache ($to_add) {
$self->_key_cache->{$self->_object_to_id($to_add)} = $to_add;
- return
+ $to_add
}
method _key_cache_has_raw ($raw) {
method _add_to_store ($new) {
my $new_raw = $self->_deflate($new);
$self->_merge($new, $self->_store->new_insert_command($new_raw)->execute);
- $self->_add_to_caches($new);
- return
+ $new;
}
method _add_to_caches ($new) {
$self->_add_to_member_cache($new);
$self->_add_to_key_cache($new);
+ $new
}
1;