CPAN::Groonga

::Bilingual::Reader;
# ABSTRACT: A book reader class
use Mojo::Base -base;
use Mojo::JSON qw(decode_json encode_json);
use Book::Bilingual;
use Book::Bilingual::File;
use Path::Tiny qw/path/;
use Carp

ook_json {
    my ($self) = @_;

    my $Book_json = [];
    foreach my $ch_idx (0..$self->book->chapter_count-1) {
        my $chapter = $self->book->chapter_at($ch_idx);

        my $Chapter_json = 

et_json = [];
            foreach my $dline_idx (0..$dlineset->dline_count-1) {
                my $dline = $dlineset->dline_at($dline_idx);

                my $Dline_json = {  # Create Dline JSON ob