=cut
+my $on_master;
+
around 'next_storage' => sub {
my ($next_storage, $self, @args) = @_;
my $now = time;
## Get a replicant, or the master if none
if(my $next = $self->$next_storage(@args)) {
+ $self->master->debugobj->print("Moved back to slave\n") if $on_master;
+ $on_master = 0;
return $next;
} else {
- $self->master->debugobj->print("No Replicants validate, falling back to master reads. ");
+ $self->master->debugobj->print("No Replicants validate, falling back to master reads.\n")
+ unless $on_master++;
+
return $self->master;
}
};