Yet Another CPAN Grep

Data-Random-Structure ( M/MA/MALLEN/Data-Random-Structure-0.01.tar.gz, MALLEN, 2014; MetaCPAN )

Data-Random-Structure/lib/Data/Random/Structure.pm ( view source; MetaCPAN )

ture;
  use JSON::PP;

  my $g = Data::Random::Structure->new(
        max_depth => 2,
        max_elements => 5,
  );

  my $ref = $g->generate();

  diag explain $ref; 

  my $json = JSON::PP->new;