gistfile1.txt

sub friends_apps {
    my ( $self, $friends, $page, $rows ) = @_;
    return $self->search({
            'person.screenname' => { -in => [map { $_->screenname} $friends->all] },
        },
        {   join => { iuses => 'person' },
            distinct => 1,
            order_by => 'MAX(iuses.timestamp) DESC',
        }
    )->at_page($page, $rows || 12);
}