[p5sagit/Data-Dumper-ToXS.git] / t / fixtures.pl

use strictures 1;
# disable the "Useless use of anonymous list ([]) in void context"
# warning so we can perl -c this file during development
no warnings 'void';
[
  data_structure =>
  {
    sv_undef => undef,
    sv_iv => 3,
    sv_nv => 4.2,
    sv_pv => "spoon",
    ref_scalar => \"foo\nbar",
    ref_array => [ 1, \undef, "73" ],
  }
],
[
  cross_refs =>
    do {
      my ($x, $y, $z) = (\1, { two => 2 }, [ three => 3 ]);
      +{
        one => $x,
        two => $y,
        three => $z,
        inner => {
          one => $x,
        },
        inner2 => [
          three => $z,
        ]
      };
    }
],
do { sub DDXSTest::foo { 'DDXSTest::foo' } () },
[
  global_sub => { foo => \&DDXSTest::foo }
];
Commit	Line	Data
c77361b0	1	use strictures 1;
	2	# disable the "Useless use of anonymous list ([]) in void context"
	3	# warning so we can perl -c this file during development
	4	no warnings 'void';
a231da50	5	[
	6	data_structure =>
	7	{
	8	sv_undef => undef,
	9	sv_iv => 3,
	10	sv_nv => 4.2,
	11	sv_pv => "spoon",
	12	ref_scalar => \"foo\nbar",
	13	ref_array => [ 1, \undef, "73" ],
	14	}
	15	],
	16	[
	17	cross_refs =>
	18	do {
	19	my ($x, $y, $z) = (\1, { two => 2 }, [ three => 3 ]);
	20	+{
	21	one => $x,
	22	two => $y,
	23	three => $z,
	24	inner => {
	25	one => $x,
	26	},
	27	inner2 => [
	28	three => $z,
	29	]
	30	};
	31	}
c77361b0	32	],
	33	do { sub DDXSTest::foo { 'DDXSTest::foo' } () },
	34	[
	35	global_sub => { foo => \&DDXSTest::foo }
	36	];