CPAN::Groonga

kage File::Dir::Dumper::Stream::JSON::Reader;
$File::Dir::Dumper::Stream::JSON::Reader::VERSION = '0.6.6';
use 5.014;
use strict;
use warnings;

use parent 'Format::JSON::Stream::Reader';



1;    # E

JSON::Reader - reader for stream of JSON objects.

=head1 VERSION

version 0.6.6

=head1 SYNOPSIS

    use File::Dir::Dumper::Stream::JSON::Reader ();

    my $reader = File::Dir::Dumper::Stream::JSON

kage File::Dir::Dumper::Stream::JSON::Writer;
$File::Dir::Dumper::Stream::JSON::Writer::VERSION = '0.6.6';
use 5.014;
use strict;
use warnings;

use parent 'Format::JSON::Stream::Writer';



1;    # E

:JSON::Writer - writer for a stream of JSON data.

=head1 VERSION

version 0.6.6

=head1 SYNOPSIS

    use File::Dir::Dumper::Stream::JSON::Writer ();

    my $writer = File::Dir::Dumper::Stream::JSON

net/> are two projects that provide similar
functionality while utilising XML and Java instead of JSON and Perl.

=head1 ACKNOWLEDGEMENTS

=head1 COPYRIGHT & LICENSE

Copyright 2008 Shlomi Fish, all r

nsFromArray);
use Pod::Usage   qw( pod2usage );

use File::Dir::Dumper::Scanner   ();
use Format::JSON::Stream::Writer ();

use Class::XSAccessor accessors => {
    _digest_cache        => '_digest_ca

    digest_cache_params => $self->_digest_cache_params,
        }
    );
    my $writer = Format::JSON::Stream::Writer->new(
        {
            output => $out,
        }
    );

    while ( defined

e File::Basename  qw/ dirname /;
use File::Spec      ();
use File::Path 2.00 qw/ make_path /;
use JSON::MaybeXS   ();


sub _init
{
    my ( $self, $args ) = @_;

    my $basepath = $args->{params}->{

 $args->{calc_cb};

    my $update = sub {
        open my $out, '>', $path;
        $out->print( JSON::MaybeXS->new( canonical => 1 )
                ->encode( +{ mtime => $mtime, digests => scalar( 

(1)
    {
        my $json =
            JSON::MaybeXS->new( canonical => 1 )->decode( _slurp($path) );
        if ( $json->{mtime} == $mtime )
        {
            return $json->{digests};
        }