Yet Another CPAN Grep

Iodef-Pb-Simple ( S/SA/SAXJAZMAN/iodef/Iodef-Pb-Simple-0.21.tar.gz, SAXJAZMAN, 2013; MetaCPAN )

Iodef-Pb-Simple/lib/Iodef/Pb/Format/Json.pm ( view source; MetaCPAN )

:Json;
use base 'Iodef::Pb::Format';

use strict;
use warnings;

require JSON::XS;

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

    my $array = $self->to_keypair($args);
    my @json_

stream;
    push(@json_stream,JSON::XS::encode_json($_)) foreach(@$array);
    my $text = join("\n",@json_stream);
    return $text;
}
1;