dump entries during replication on STDERR

diff --git a/angular-server.pl b/angular-server.pl
index 85e6ad4..c943bbe 100755 (executable)
--- a/angular-server.pl
+++ b/angular-server.pl
@@ -49,6 +49,7 @@ get '/data/:database' => sub {
        my $database = $self->param('database');
        my $list_databases = { name => $database };
        foreach my $entity ( keys %{ $data->{ $database }} ) {
+warn "# entry $entity ", dump( $data->{$database}->{$entity} );
                my $count = $#{ $data->{$database}->{$entity} } + 1;
                $list_databases->{entities}->{$entity} = $count;
                $list_databases->{document_count} += $count;