use Moose;
use Method::Signatures::Simple;
use Data::Perl::Stream::Array;
+use Scalar::Util qw(weaken refaddr);
has _store => (is => 'ro', required => 1, init_arg => 'store');
## member cache (all members)
has _member_cache => (
- is => 'rw', lazy_build => 1,
+ is => 'ro', lazy_build => 1,
predicate => '_member_cache_built',
+ writer => '_set_member_cache',
);
method _build__member_cache {
: ()
}
+method _all_key_cache_members {
+ values %{$self->_key_cache}
+}
+
## observers
has _observer_callbacks => (
- is => 'ro', isa => 'ArrayRef', default => sub { [] }
+ is => 'ro', default => sub { {} },
);
method _notify_observers ($event, $payload) {
- foreach my $cb (@{$self->_observer_callbacks}) {
- $self->$cb($event, $payload);
+ my $oc = $self->_observer_callbacks;
+ foreach my $refaddr (keys %$oc) {
+ my ($obj, $cb) = @{$oc->{$refaddr}};
+ unless (defined $obj) { # weak ref was garbage collected
+ delete $oc->{$refaddr};
+ next;
+ }
+ $obj->$cb($self, $event, $payload);
}
+ $payload
+}
+
+method _register_observer ($obj, $cb) {
+ my $entry = [ $obj, $cb ];
+ weaken($entry->[0]);
+ $self->_observer_callbacks->{refaddr($obj)} = $entry;
+ return
+}
+
+method _setup_observation_of ($other) {
+ $other->_register_observer($self, method ($from, $event, $payload) {
+ if ($event eq 'add' or $event eq 'get') {
+ $self->_add_to_caches($payload);
+ } elsif ($event eq 'remove') {
+ $self->_remove_from_caches($payload);
+ } elsif ($event eq 'all_members') {
+ # separate arrayref since future add will trigger push()
+ $self->_set_member_cache([ @$payload ]);
+ }
+ });
+ return
}
## thunking between the store representation and the set representation
return $got
}
if (my ($raw) = $self->_get_from_store($self->_deflate_spec($spec))) {
- return $self->_add_to_key_cache($self->_inflate($raw))
+ return $self->_notify_observers(
+ get => $self->_add_to_key_cache($self->_inflate($raw))
+ );
}
return undef # we aren't handling cache misses here yet
}