CPAN::Groonga

package Serge::Engine::Plugin::parse_json_keyvalue;
use parent Serge::Engine::Plugin::Base::Parser;

use strict;

use JSON -support_by_pp; # -support_by_pp is used to make Perl on Mac happy
use Serge:

:Mail;
use Serge::Util qw(xml_escape_strref);

sub name {
    return 'JSON Dictionary Parser Plugin';
}

sub init {
    my $self = shift;

    $self->SUPER::init(@_);

    $self->{errors} = {};

    $

;
    }

    my $email_subject = $self->{data}->{email_subject} || ("[".$self->{parent}->{id}.']: JSON Parse Errors');

    my $text;
    foreach my $key (sort keys %{$self->{errors}}) {
        my $p

kage Serge::Engine::Plugin::parse_json;
use parent Serge::Engine::Plugin::Base::Parser;
use parent Serge::Interface::PluginHost;

use strict;

use File::Path;
use JSON -support_by_pp; # -support_by_pp

Mac happy
use Serge::Mail;
use Serge::Util qw(xml_escape_strref);

sub name {
    return 'Generic JSON tree parser plugin';
}

sub init {
    my $self = shift;

    $self->SUPER::init(@_);

    $self-

;
    }

    my $email_subject = $self->{data}->{email_subject} || ("[".$self->{parent}->{id}.']: JSON Parse Errors');

    my $text;
    foreach my $key (sort keys %{$self->{errors}}) {
        my $p

package Serge::Engine::Plugin::parse_chrome_json;
use parent Serge::Engine::Plugin::Base::Parser;

use strict;

use JSON -support_by_pp; # -support_by_pp is used to make Perl on Mac happy
use Serge::M

ail;
use Serge::Util qw(xml_escape_strref);

sub name {
    return 'Chrome extension messages.json parser plugin';
}

sub init {
    my $self = shift;

    $self->SUPER::init(@_);

    $self->{errors}

ject = $self->{data}->{email_subject} || ("[".$self->{parent}->{id}.']: Chrome Extension messages.json Parse Errors');

    my $text;
    foreach my $key (sort keys %{$self->{errors}}) {
        my $p

Serge/Util/CLDRPlurals.pm';

print "Loading $INFILE\n";
open IN, $INFILE;
binmode IN, 'utf8';
my $json = join('', <IN>);
close IN;

my $tree = XML::Twig->new()->parsefile($INFILE);

my $revision = ($t