use strict;
use warnings;

use Dumpvalue;

my $ref = {
    a => [ 1, 2, 3 ],
    b => [
        { X => 1, Y=> 2 },
        {
            X => [ 1, 2, 3 ],
            Y => [ 4, 5, 6 ],
            Z => [ 7, 8, 9 ]
        },
    ],
};

print "Dumpvalue:\n";
Dumpvalue->new->dumpValue( $ref );


##</code><code>##

Dumpvalue:
'a' => ARRAY(0x460ee8)
   0  1
   1  2
   2  3
'b' => ARRAY(0x4e3e50)
   0  HASH(0x4d964c)
      'X' => 1
      'Y' => 2
   1  HASH(0x4e3e14)
      'X' => ARRAY(0x4d967c)
         0  1
         1  2
         2  3
      'Y' => ARRAY(0x4e3d9c)
         0  4
         1  5
         2  6
      'Z' => ARRAY(0x4e3dd8)
         0  7
         1  8
         2  9


##</code><code>##

use strict;
use warnings;

use Data::Dumper;

my $ref = {
    a => [ 1, 2, 3 ],
    b => [
        { X => 1, Y=> 2 },
        {
            X => [ 1, 2, 3 ],
            Y => [ 4, 5, 6 ],
            Z => [ 7, 8, 9 ]
        },
    ],
};

print "Data::Dumper:\n";
print Dumper( $ref );


##</code><code>##

Data::Dumper:
$VAR1 = {
          'a' => [
                   1,
                   2,
                   3
                 ],
          'b' => [
                   {
                     'X' => 1,
                     'Y' => 2
                   },
                   {
                     'Z' => [
                              7,
                              8,
                              9
                            ],
                     'X' => [
                              1,
                              2,
                              3
                            ],
                     'Y' => [
                              4,
                              5,
                              6
                            ]
                   }
                 ]
        };


##</code><code>##

use strict;
use warnings;

use YAML;

my $ref = {
    a => [ 1, 2, 3 ],
    b => [
        { X => 1, Y=> 2 },
        {
            X => [ 1, 2, 3 ],
            Y => [ 4, 5, 6 ],
            Z => [ 7, 8, 9 ]
        },
    ],
};

print "YAML::Dump:\n";
print Dump( $ref );


##</code><code>##

YAML::Dump:
---
a:
  - 1
  - 2
  - 3
b:
  - X: 1
    Y: 2
  - X:
      - 1
      - 2
      - 3
    Y:
      - 4
      - 5
      - 6
    Z:
      - 7
      - 8
      - 9
      

##</code><code>##

use strict;
use warnings;

use Data::Dump::Streamer;

my $ref = {
    a => [ 1, 2, 3 ],
    b => [
        { X => 1, Y=> 2 },
        {
            X => [ 1, 2, 3 ],
            Y => [ 4, 5, 6 ],
            Z => [ 7, 8, 9 ]
        },
    ],
};

print "Data::Dump::Streamer:\n";
print Dump( $ref );


##</code><code>##

Data::Dump::Streamer:
$HASH1 = {
           a => [
                  1,
                  2,
                  3
                ],
           b => [
                  {
                    X => 1,
                    Y => 2
                  },
                  {
                    X => [
                           1,
                           2,
                           3
                         ],
                    Y => [
                           4,
                           5,
                           6
                         ],
                    Z => [
                           7,
                           8,
                           9
                         ]
                  }
                ]
         };
         

##</code><code>##

use strict;
use warnings;

use GraphViz::Data::Structure;

my $data_structure = {
    a => [ 1, 2, 3 ],
    b => [
        { X => 1, Y => 2 },
        {
            X => [ 1, 2, 3 ],
            Y => [ 4, 5, 6 ],
            Z => [ 7, 8, 9 ]
        },
    ],
};

my $gvds =
  GraphViz::Data::Structure->new( $data_structure, Orientation => 'vertical' );
print $gvds->graph()->as_png("gvds.png");


##</code><code>##

use strict;
use warnings;

use GraphViz::Data::Grapher;

my $structure = {
    a => [ 1, 2, 3 ],
    b => [
        { X => 1, Y => 2 },
        {
            X => [ 1, 2, 3 ],
            Y => [ 4, 5, 6 ],
            Z => [ 7, 8, 9 ]
        },
    ],
};

my $graph = GraphViz::Data::Grapher->new($structure);
print $graph->as_png("gvdg.png");