t/fixtures.pl

   1 [
   2   data_structure =>
   3   {
   4     sv_undef => undef,
   5     sv_iv => 3,
   6     sv_nv => 4.2,
   7     sv_pv => "spoon",
   8     ref_scalar => \"foo\nbar",
   9     ref_array => [ 1, \undef, "73" ],
  10   }
  11 ],
  12 [
  13   cross_refs =>
  14     do {
  15       my ($x, $y, $z) = (\1, { two => 2 }, [ three => 3 ]);
  16       +{
  17         one => $x,
  18         two => $y,
  19         three => $z,
  20         inner => {
  21           one => $x,
  22         },
  23         inner2 => [
  24           three => $z,
  25         ]
  26       };
  27     }
  28 ]