Yet Another CPAN Grep

Magpie ( K/KH/KHAMPTON/Magpie-1.163200.tar.gz, KHAMPTON, 2016; MetaCPAN )

Magpie/lib/Magpie/Transformer/JSON.pm ( view source; MetaCPAN )

::JSON;
$Magpie::Transformer::JSON::VERSION = '1.163200';
use Moose;

# ABSTRACT: JSON Ouput Transformer

extends 'Magpie::Transformer';
use Scalar::Util qw(blessed);
use Magpie::Constants;
use JSON;

 if ( $self->resource->has_data ) {

        my $data        = $self->resource->data;
        my $json_string = undef;
        if ( blessed $data) {
            if ($data->does('Data::Stream::Bulk') )

ects, JSON::encode_json($data);
                    }
                }
                $json_string = '[' . ( join ', ', @objects ) . ']';
            }
            else {
                $json_strin