CPAN::Groonga

package Data::Stag::JSONWriter;

=head1 NAME

  Data::Stag::JSONWriter - writes stag events into JSON files

=head1 SYNOPSIS


=cut

=head1 DESCRIPTION

=head1 PUBLIC METHODS -

=cut

use strict;
use 

se JSON;

use vars qw($VERSION);
$VERSION="0.14";

sub fmtstr {
    return 'json';
}

sub end_stag {
    my $self = shift;
    my $stag = shift;
    my $obj = $self->stag2json($stag);

    my $json = 

JSON->new->allow_nonref;
    my $json_text = $json->pretty->encode( $obj );
    $self->addtext($json_text);
    return;
}

sub stag2json {
    my $self = shift;
    my $stag = shift;
    my $obj = {};

rl/i) {
        $writer = "Data::Stag::PerlWriter";
    }
    elsif ($fmt =~ /json/i) {
        $writer = "Data::Stag::JSONWriter";
    }
    elsif ($fmt =~ /dtd/i) {
        $writer = "Data::Stag::DT