- my $bb = Blerg::Database->open_existing($username);
- my @list = $bb->subscription_list();
- $bb->close;
- @list = map {
- my $b = Blerg::Database->open_existing($_->{author});
- my $data = $b->fetch($_->{record});
- my $timestamp = $b->timestamp($_->{record});
- $b->close;
- {
- author => $_->{author},
- record => $_->{record},
- data => $data,
- timestamp => $timestamp,
- };
- } @list;
+ my $b = Blerg::Database->open_existing($username);
+ my @list = fetch_records($b->subscription_list());
+ $b->close;