CPAN::Groonga

:EDI-new('d09b');      # set the EDI spec version
  my $rtc = $edi->codelist('ResponseTypeCode', $json) or die "Unrecognized code!";
  printf "EDI response type: %s - %s (%s)\n", $rtc->code, $rtc->lab

 to EDI messages and subelements.
At present, the EDI input processed by Business::EDI objects is JSON from the B<edi4r> ruby library, and
there is no EDI output beyond the perl objects themselves.

=

e 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 JSONOb

 = 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] = JSONObj

bj->[$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