CPAN::Groonga

PTD::JSON;
$Lingua::PTD::JSON::VERSION = '1.17';
use warnings;
use strict;

use parent 'Lingua::PTD';
use JSON;

=encoding UTF-8

=head1 NAME

Lingua::PTD::JSON - Sub-module to export PTD to JSON

=he

ad1 SYNOPSIS

  use Lingua::PTD;

  my $ptd = Lingua::PTD->new( $file );
  $ptd->saveAs("json", $dest, $options);

=head1 DESCRIPTION

Check L<<Lingua::PTD>> for complete reference.

=head1 SEE ALSO

, $filename or return 0;
        $contents = <IN>;
        close IN;
    }

    my $self = decode_json($contents);
    bless $self => $class #amen
}

use Data::Structure::Util qw( unbless );

sub _sav

D::BzDmp;
use Lingua::PTD::XzDmp;
use Lingua::PTD::SQLite;
use Lingua::PTD::TSV;
use Lingua::PTD::JSON;
use Lingua::PTD::StarDict;

=encoding UTF-8

=head1 NAME

Lingua::PTD - Module to handle PTD fil

QLite->new($filename) if $filename =~ /\.sqlite$/i;
    $self = Lingua::PTD::JSON  ->new($filename) if $filename =~ /\.json$/i;

    # default
    $self = Lingua::PTD::Dumper->new($filename) unless $s

e && $filename;

    my $done = undef;
    # switch
    Lingua::PTD::JSON::_save($self => $filename) and $done = 1 if $type =~ /json/i;
    Lingua::PTD::Dumper::_save($self => $filename) and $done = 1