CPAN::Groonga

e/') ? $self->handle_save :
        ();
}

sub handle_test {
    my ($self) = @_;
    $self->read_json;
    my $yaml = $self->{env}{post_data}{yaml};
    my ($sec,$min,$hour,$mday,$mon,$year) = gmtime

day, $hour, $min, $sec,
        ),
    };
    $self->response_json($result);
}

sub handle_save {
    my ($self) = @_;
    $self->read_json;
    my $yaml = $self->{env}{post_data}{yaml};
    my $stamp

v}{post_data}{stamp};
    io->file("data/$stamp.yaml")->assert->print($yaml);
    $self->response_json({stamp => $stamp});
}

sub yaml_pm {
    my ($self, $yaml) = @_;
    return eval {
        Data::