File Coverage

blib/lib/Format/JSON/Stream/Writer.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch			n/a
condition			n/a
subroutine	12	12	100.0
pod	3	3	100.0
total	55	55	100.0

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;

    $self->_init(@_);

    return $self;
}

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__