Select Code to Download

Select or download this
```
my $out .= "var ";

my $out .= "var ";
```

(Shapes => 
  [ 
    { Type => 'Circle', Diameter => 2, Center => [0,1] }, 
...
    [ {x => 1, y => 1}, {x => 3, y => 1}, {x => 4, y => 2}, {x => 2, y
+ => 2} ]
  ]
);

Select or download this

var is a HASH with 5 keys
        the keys are 'age', 'fname', 'kids', 'last_name', 'occupation'
        key 'kids' is an ARRAY containing HASHREFs:
...
                key 'title' is a SCALAR
                key 'years_on_job' is a SCALAR
        key 'last_name' is a SCALAR

Select or download this

use v5.14;

use strict;
...
introspect(\@array, \%out);
say pp \%out;
say YAML::Dump(\%out);

Select or download this

{
  ARRAY => {
    HASH => {
...
          SCALAR: 1
        years_on_job:
          SCALAR: 1

Select or download this

  elsif (ref $data eq 'REF')
  {
    introspect($$data, ($output->{'REF'} //= {}));
  }