Select Code to Download

my $notes = My::Dashboard::Note->list;
while ($notes->load_next){
  print $notes->headline, $notes->created, $notes->body;
}

sub load_next{
  my ($self, %arguments) = @_;
...
  return $self->{storage}{next};
}