Yet Another CPAN Grep

WJSON ( L/LU/LUCAS/WJSON-0.08.tar.gz, LUCAS, 2014; MetaCPAN )

WJSON/lib/WJSON.pm ( view source; MetaCPAN )

package WJSON;

use Moose;
use JSON;
use Encode;
use Tie::IxHash;
no warnings 'uninitialized';

our $VERSION = '0.08';

has 'json' => (
    is => 'ro',
    isa => 'ArrayRef',
    default => sub {

alar(@{$self->json}) || 1;
        if (scalar(@{$self->reference->{$tmp.'/'.$key}}) == 1) {
            my $result = $self->reference->{$tmp.'/'.$key}[0];
            if (ref($self->json->[$total - 1]

 if ($type == 1) {
                    push(@{$self->json}, {$key => $result});
                }elsif($type == 2) {
                    $self->json->[$total - 1]{$key} = [$result];
                }e