sub index {
my $self = shift;
+ my $max = $self->param('max') || 10;
+
my $changes;
- foreach my $path ( glob '/tmp/changes/*' ) {
+ foreach my $path ( sort { $b cmp $a } glob '/tmp/changes/*' ) {
if ( $path =~ m{/((\d+\.\d+)\.data\.(.+))$} ) {
push @$changes, { uid => $1, t => $2, action => $3 };
+ last if $#$changes > $max;
} else {
warn "ignore: $path\n";
}