-sub _recent_uploads { Memories::Photo->search_recent() }
-sub _random { Memories::Photo->search_random() }
+for my $how (qw(random recent interesting popular)) {
+ no strict;
+ my $method = "search_$how";
+ *{"_$how"} = sub { Memories::Photo->$method };
+ *{$how} = sub { shift->do_cached(\&{"_$how"})};
+}