sub load_next{
    my ($self, %arguments) = @_;
  my @next = @{$self->storage_next_list};
  my $new_self = shift @next or return;
  $_[0] = $new_self;
  $self->storage_next_list(list=>\@next);
  return $new_self;
}