comment on

Thanks.. it has already helped me notice that when I recently "fixed" formatting of code refs, I actually broke them :-)

I've included the output of my latest version (not yet uploaded)..

******** Array Scalar Cross ********
        [
$L002:     \$L001,
$L001:     \$L002
        ]
******** Array Contains Scalar Cross ********
        [
           \
$L002:        \$L001,
           \
$L001:        \$L002
        ]
******** Leaf Loop ********
        \
$L001:     \$L001
******** Big Mess ********
        [
           \
@L006:        @(
                 \%L001,
                 \%L001,
$L008:           \$L002,
                 \$L002,
$L005:           \$L003,
                 \%L001,
                 \$L004,
                 \%L001,
                 \%L001,
$L007:           \%L001
              ),
           \
%L001:        %(
                 0 => \$L005,
$L003:           1 => \@L006,
$L004:           2 => \$L007,
                 3 => \$L008,
$L002:           4 => \$L007,
                 5 => \@L006,
                 6 => \$L007,
                 7 => \@L006,
                 8 => \@L006,
                 9 => \@L006
              )
        ]
******** Simple ********
        [
           [1, 2, 3, 4, 5, 6, 7, 8, 9, 10],
           {
              1 => 2,
              11 => 12,
              13 => 14,
              15 => 16,
              17 => 18,
              19 => 20,
              3 => 4,
              5 => 6,
              7 => 8,
              9 => 10
           }
        ]
******** Simple Ref Test ********
        {"abc\0'\efg" => "mno\0", reftest => \<ro> \<ro> 1}
******** Simple Ref Test 2 ********
        [
           \
@L003:        @(1, \%L001, \@L002),
           \
%L001:        %(aa => \@L003, bb => \%L001, cc => \@L002),
           \
@L002:        @('c')
        ]
******** Simple AoH ********
        [
           \
$L002:        [{a => \$L001}, {b => undef}],
           \
$L001:        [{c => \$L001}, {d => \$L002}]
        ]
******** Parent Tree ********
        \
@L001:     @(
              \
@L002:           @(
                    \
@L004:                 @([0, \@L004], [1, \@L004], 2, \@L002),
                    \
@L005:                 @([3, \@L005], [4, \@L005], 5, \@L002),
                    6,
                    \@L001
                 ),
              \
@L003:           @(
                    \
@L006:                 @([7, \@L006], [8, \@L006], 9, \@L003),
                    \
@L007:                 @([10, \@L007], [11, \@L007], 12, \@L003),
                    13,
                    \@L001
                 ),
              14,
              undef
           )
******** Ref naming 01 ********
        [
$L002:     'Foo',
$L001:     'Bar',
           {bar => \$L001, foo => \$L002},
           [\$L002, \$L001]
        ]
******** Ref naming 02 ********
        [
$L001:     'Foo',
$L002:     'Bar',
           [\$L001, \$L002],
           {bar => \$L002, foo => \$L001}
        ]
******** Ref naming 03 ********
        [
$L001:     'Foo',
           [\$L001, \$L002],
$L002:     'Bar',
           {bar => \$L002, foo => \$L001}
        ]
******** Ref naming 04 ********
        [
           [\$L001, \$L002],
$L001:     'Foo',
$L002:     'Bar',
           {bar => \$L002, foo => \$L001}
        ]
******** Ref naming 05 ********
        [
$L002:     'Foo',
           {bar => \$L001, foo => \$L002},
$L001:     'Bar',
           [\$L002, \$L001]
        ]
******** Ref naming 06 ********
        [
$L002:     'Foo',
           {bar => \$L001, foo => \$L002},
           [\$L002, \$L001],
$L001:     'Bar'
        ]
******** Ref naming 07 ********
        [
$L001:     'Foo',
           [\$L001, \$L002],
           {bar => \$L002, foo => \$L001},
$L002:     'Bar'
        ]
******** Ref naming 08 ********
        [
           [\$L001, \$L002],
$L001:     'Foo',
           {bar => \$L002, foo => \$L001},
$L002:     'Bar'
        ]
******** Ref naming 09 ********
        [
           {bar => \$L001, foo => \$L002},
$L002:     'Foo',
$L001:     'Bar',
           [\$L002, \$L001]
        ]
******** Ref naming 10 ********
        [
           {bar => \$L001, foo => \$L002},
$L002:     'Foo',
           [\$L002, \$L001],
$L001:     'Bar'
        ]
******** Ref naming 11 ********
        [
           {bar => \$L001, foo => \$L002},
           [\$L002, \$L001],
$L002:     'Foo',
$L001:     'Bar'
        ]
******** Ref naming 12 ********
        [
           [\$L001, \$L002],
           {bar => \$L002, foo => \$L001},
$L001:     'Foo',
$L002:     'Bar'
        ]
******** Ref naming 13 ********
        [
$L001:     'Bar',
$L002:     'Foo',
           {bar => \$L001, foo => \$L002},
           [\$L002, \$L001]
        ]
******** Ref naming 14 ********
        [
$L002:     'Bar',
$L001:     'Foo',
           [\$L001, \$L002],
           {bar => \$L002, foo => \$L001}
        ]
******** Ref naming 15 ********
        [
$L002:     'Bar',
           [\$L001, \$L002],
$L001:     'Foo',
           {bar => \$L002, foo => \$L001}
        ]
******** Ref naming 16 ********
        [
           [\$L001, \$L002],
$L002:     'Bar',
$L001:     'Foo',
           {bar => \$L002, foo => \$L001}
        ]
******** Ref naming 17 ********
        [
$L001:     'Bar',
           {bar => \$L001, foo => \$L002},
$L002:     'Foo',
           [\$L002, \$L001]
        ]
******** Ref naming 18 ********
        [
$L001:     'Bar',
           {bar => \$L001, foo => \$L002},
           [\$L002, \$L001],
$L002:     'Foo'
        ]
******** Ref naming 19 ********
        [
$L002:     'Bar',
           [\$L001, \$L002],
           {bar => \$L002, foo => \$L001},
$L001:     'Foo'
        ]
******** Ref naming 20 ********
        [
           [\$L001, \$L002],
$L002:     'Bar',
           {bar => \$L002, foo => \$L001},
$L001:     'Foo'
        ]
******** Ref naming 21 ********
        [
           {bar => \$L001, foo => \$L002},
$L001:     'Bar',
$L002:     'Foo',
           [\$L002, \$L001]
        ]
******** Ref naming 22 ********
        [
           {bar => \$L001, foo => \$L002},
$L001:     'Bar',
           [\$L002, \$L001],
$L002:     'Foo'
        ]
******** Ref naming 23 ********
        [
           {bar => \$L001, foo => \$L002},
           [\$L002, \$L001],
$L001:     'Bar',
$L002:     'Foo'
        ]
******** Ref naming 24 ********
        [
           [\$L001, \$L002],
           {bar => \$L002, foo => \$L001},
$L002:     'Bar',
$L001:     'Foo'
        ]
******** Sub ********
        [\&(code:125)]
******** Sub2 ********
        [\&(code:126)]
******** HoS ********
        [{sub1 => \&(code:125), sub2 => \&(code:126)}]
******** AoS ********
        [[\&(code:125), \&(code:126)]]
******** H&AoS ********
        [
           [
              \
&L001:           &(code:125),
              \
&L002:           &(code:126)
           ],
           {sub1 => \&L001, sub2 => \&L002}
        ]
******** Dog Kennel 1 ********
        [
           *dogs,
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           \%L001
        ]
******** Dog Kennel 2 ********
        [
           <anon> *dogs,
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           \%L001
        ]
******** Dog Kennel 3 ********
        [
           *dogs,
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           \%L001
        ]
******** Dog Kennel 4 ********
        [
           <anon> *dogs,
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           \%L001
        ]
******** Dog Kennel 5 ********
        [
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           *dogs,
           \%L001
        ]
******** Dog Kennel 6 ********
        [
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           <anon> *dogs,
           \%L001
        ]
******** Dog Kennel 7 ********
        [
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           *dogs,
           \%L001
        ]
******** Dog Kennel 8 ********
        [
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           <anon> *dogs,
           \%L001
        ]
******** Dog Kennel 9 ********
        [
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           \%L001,
           *dogs
        ]
******** Dog Kennel 10 ********
        [
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           \%L001,
           <anon> *dogs
        ]
******** Dog Kennel 11 ********
        [
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           \%L001,
           *dogs
        ]
******** Dog Kennel 12 ********
        [
           \
%L001:        %(First => \'Fido', Second => \'Wags'),
           \%L001,
           <anon> *dogs
        ]
[download]

I'll reupload as soon as I've fixed code refs.
•Update: I think I fixed them. I updated the above dump too

In reply to Re: serializer tests by xmath
in thread Data::XDumper by xmath

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


The stupid question is the question not asked
	PerlMonks