#!/usr/bin/perl

use strict;
use lib '../lib';
use everywhere 'MooseX::Declare; use 5.010',
  matching => '^EPFarms';
use EPFarms::DB;

$| = 1;

my $db = EPFarms::DB->new;
$db = $db->db;

print "Loading all objects...";
my $i = $db->all_objects;
print "done.\n";
print "Re-indexing...";
while ( my $block = $i->next ) { 
  print ".";
  $db->update(@$block);
  print "x";
}

print "done!\n";