package
CIF::Client::Plugin::Raw;
require
JSON;
sub
write_out {
my
$self
=
shift
;
my
$config
=
shift
;
my
$feed
=
shift
;
my
$json
;
if
(1 ||
$config
->{
'stream'
}){
my
@array
= @{
$feed
->{
'feed'
}->{
'entry'
}};
return
unless
(
keys
(%{
$array
[0]}));
my
@json_stream
;
foreach
(
@array
){
push
(
@json_stream
,JSON::to_json(
$_
));
}
$json
=
join
(
"\n"
,
@json_stream
);
}
else
{
return
unless
(
$feed
->{
'feed'
}->{
'entry'
});
$json
= JSON::to_json(
$feed
->{
'feed'
}->{
'entry'
});
}
return
$json
.
"\n"
;
}
1;