File Coverage

blib/lib/Business/EDI/Test.pm

Criterion	Covered	Total	%
statement	35	42	83.3
branch	10	20	50.0
condition			n/a
subroutine	9	10	90.0
pod	0	3	0.0
total	54	75	72.0

package Business::EDI::Test;

use strict;
use warnings;

use JSON::XS;
use Exporter;

use base qw/Exporter/;
use vars qw/$VERSION @EXPORT_OK $parser/;

BEGIN {
    $VERSION = 0.02;
    @EXPORT_OK = qw/ JSONObject2Perl ordrsp_data pretty_json /;
}


sub JSONObject2Perl {
    my $obj = shift;
    if ( ref $obj eq 'HASH' ) {
        if ( defined $obj->{'__c'} ) {
            die "We somehow got a special (Evergreen) object in our data";
        }
        # is a hash w/o class marker; simply revivify innards
        for my $k (keys %$obj) {
            $obj->{$k} = JSONObject2Perl($obj->{$k}) unless ref $obj->{$k} eq 'JSON::XS::Boolean';
        }
    } elsif ( ref $obj eq 'ARRAY' ) {
        for my $i (0..scalar(@$obj) - 1) {
            $obj->[$i] = JSONObject2Perl($obj->[$i]) unless ref $obj->[$i] eq 'JSON::XS::Boolean';
        }
    }
    # ELSE: return vivified non-class hashes, all arrays, and anything that isn't a hash or array ref
    return $obj;
}

sub pretty_json {
    @_ or die "pretty_json() missing required argument";
    unless ($parser) {
        $parser = JSON::XS->new;
        $parser->ascii(1);        # output \u escaped strings for any char with a value over 127
        $parser->allow_nonref(1); # allows non-reference values to equate to themselves (see perldoc)
    }
    return $parser->indent(1)->space_before(1)->decode(shift);
}

sub ordrsp_data {
    unless ($parser) {
        $parser = JSON::XS->new;
        $parser->ascii(1);        # output \u escaped strings for any char with a value over 127
        $parser->allow_nonref(1); # allows non-reference values to equate to themselves (see perldoc)
    }

    my $slurp = join('', ) or die __PACKAGE__ . " FAILED reading DATA handle";
    my $foo = ($parser->decode($slurp)) or warn "JSON parser failed to decode DATA";
    return JSONObject2Perl($foo);
}

1;

__DATA__