CPAN::Groonga

;

sub add : Local {
    my ($self, $c, $arg) = @_;

    my $json = MIME::Base64::decode($arg);

    my $el = Osgood::EventList->thaw($json);

    my ($count, $error) = $c->add_from_list($el);

    $c

   $count++;
        }
    }

    # set response type
    $c->response->content_type('application/json');
    # return serialized list
    $c->response->body($net_list->freeze);
}

=head2 event_POST