CPAN::Groonga

 Format::JSON::Stream;
$Format::JSON::Stream::VERSION = '0.0.1';
use 5.014;
use strict;
use warnings;

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Format::JSON::Stream - a stream of JSON data.

=

t-JSON-Stream>

=item *

RT: CPAN's Bug Tracker

The RT ( Request Tracker ) website is the default bug/issue tracking system for CPAN.

L<https://rt.cpan.org/Public/Dist/Display.html?Name=Format-JSON-

rmat-JSON-Stream>

=item *

CPAN Testers

The CPAN Testers is a network of smoke testers who run automated tests on uploaded CPAN distributions.

L<http://www.cpantesters.org/distro/F/Format-JSON-Stre

package Format::JSON::Stream::Reader;
$Format::JSON::Stream::Reader::VERSION = '0.0.1';
use strict;
use warnings;
use 5.014;

sub new
{
    my $class = shift;

    my $self = bless {}, $class;

    $s

elf->_init(@_);

    return $self;
}

use Carp ();

use JSON::MaybeXS qw(decode_json);
use Class::XSAccessor accessors => { _in => 'in' };


sub _init
{
    my $self = shift;
    my $args = shift;

  

  my $self = shift;

    if ( $self->_readline() ne "# JSON Stream by Shlomif - Version 0.2.0\n" )
    {
        Carp::confess "No header for JSON stream";
    }

    return;
}

sub fetch
{
    my $se

package Format::JSON::Stream::Writer;
$Format::JSON::Stream::Writer::VERSION = '0.0.1';
use strict;
use warnings;
use 5.014;

sub new
{
    my $class = shift;

    my $self = bless {}, $class;

    $s

elf->_init(@_);

    return $self;
}

use Carp ();

use JSON::MaybeXS ();
use Class::XSAccessor accessors => { _out => '_out' };


sub _init
{
    my $self = shift;
    my $args = shift;

    $self->_

= shift;

    $self->_print("# JSON Stream by Shlomif - Version 0.2.0");

    return;
}

sub put
{
    my $self  = shift;
    my $token = shift;

    $self->_print( JSON::MaybeXS->new( canonical => 1 

() );

if ( !defined($version) )
{
    die "Version is undefined!";
}

my $PROJECT = "perl-Format-JSON-Stream";
my @cmd     = (
    "git", "tag", "-m", "Tagging the $PROJECT release as $version",