coke4all has asked for the wisdom of the Perl Monks concerning the following question:

Hi there,

i´v the following problem. I´ve created a nested Object Oriented Moose Object '$X' which consists itself of further Sub-Objects. One of the Sub-Objects '$y' is placed more than once within '$X'.

My aim now is to print out a PLAIN representation of the object '$X'.

At the moment i do this with:

my $plain = Dumper(unbless($X));

Generally this works, but the problem is that i´ve left one reference variable '$VAR1 = {...}' in this output ($plain). The reason is that i´ve the Sub-Object '$y' more than once within the Object '$X'.

Does anybody know how to avoid this?

Replies are listed 'Best First'.
Re: nested unbless of Data::Dumper output
by Eliya (Vicar) on Mar 20, 2013 at 11:19 UTC

    Not entirely sure I understand what you need, but if the idea is to avoid cross references being created, you might want to try $Data::Dumper::Deepcopy = 1;

    For the following sample structure, the difference in output would be 

    my $y = { foo => "bar" };
my $X = { a => $y, b => $y, c => $y };

$Data::Dumper::Deepcopy = 1;

print Dumper($X);

    [download]
    $VAR1 = {
          'c' => {
                   'foo' => 'bar'
                 },
          'a' => {
                   'foo' => 'bar'
                 },
          'b' => {
                   'foo' => 'bar'
                 }
        };

    [download]

    while the default output (Deepcopy=0) would look like 

    $VAR1 = {
          'c' => {
                   'foo' => 'bar'
                 },
          'a' => $VAR1->{'c'},
          'b' => $VAR1->{'c'}
        };

    [download]
[reply]
[d/l]
[select]

      Thanks, this is exactly what i needed!!!

[reply]
Re: nested unbless of Data::Dumper output
by Anonymous Monk on Mar 20, 2013 at 10:35 UTC

    What is the problem?

    Where do you get unbless, maybe you want circular_off?

[reply]

Back to Seekers of Perl Wisdom