File Coverage

blib/lib/File/Dir/Dumper/Stream/JSON/Writer.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch			n/a
condition			n/a
subroutine	12	12	100.0
pod	2	2	100.0
total	53	53	100.0

package File::Dir::Dumper::Stream::JSON::Writer;
$File::Dir::Dumper::Stream::JSON::Writer::VERSION = '0.6.4';
use warnings;
use strict;

use 5.012;

use parent 'File::Dir::Dumper::Base';

use Carp ();

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


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

    $self->_out( $args->{output} );

    $self->_init_stream();

    return;
}

sub _print
{
    my $self = shift;
    my $line = shift;

    print { $self->_out() } $line, "\n";
}

sub _init_stream
{
    my $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 )->encode($token) );
    $self->_print("--/f");

    return;
}

sub close
{
    my $self = shift;

    return close( $self->_out() );
}


1;    # End of File::Dir::Dumper

__END__